поможете с Паскалем?(можете посмотреть в чем ошибки???)

[aiktz]

Здравствуйте!!!! плиз проверьте в чем ошибки Тема процедуры и функции.

Вот условие задачи: напечатать все различные русские слова.

uses crt;

const
   CAlfLen= 255;
   CChars= 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюя';
   CDelimiters= ' {},.!?`~^&%';
type
   TAlf= array [0..CAlfLen] of boolean;



procedure AlfCreateFromPattern (var theAlf: TAlf; const thePattern: string);
var
   i: integer;
begin
   for i:= 0 to CAlfLen do
      theAlf[i]:= false;
   for i:= 0 to length(thePattern) do
      theAlf[integer(thePattern[i])]:= true;
end;

function CharInAlf (theChar: char; theAlf: TAlf): boolean;
begin
   CharInAlf:= theAlf[integer(theChar)];
end;

function WordCompareWithAlf (theWord: string; theAlf: TAlf): boolean;
var
   i: integer;
   r: boolean;
begin
   r:= true;
   for i:= 1 to length(theWord) do
      if not CharInAlf (theWord[i], theAlf) then
      begin
         r:= false;
         break;
      end;
   WordCompareWithAlf:= r;
end;

function PopWordFromString (var theStr: string; var theWord: string; theDelimiter: TAlf): boolean;
var
   i, j: integer;
   len: integer;
begin
   len:= length(theStr);
   if (len = 0) then
   begin
      theWord:= '';
      PopWordFromString:= false;
      exit;
   end;
   i:= 1;
   while (i < len) and (not CharInAlf (theStr[i], theDelimiter)) do
      inc(i);
   j:= i;
   while (j < len) and CharInAlf (theStr[j], theDelimiter) do
      inc(j);
   if (i < len) then
      dec(i);
   if (j < len) then
      dec(j);
   theWord:= copy (theStr, 1, i);
   Delete (theStr, 1, j);
   PopWordFromString:= true;
end;
var
   str, word: string;
   alf, del: TAlf;
begin
   AlfCreateFromPattern (alf, CChars);
   AlfCreateFromPattern (del, CDelimiters);
   write ('Предложение: ');
   readln (str);
   str:= 'Привет мир I gо :-) to хом';
   while (PopWordFromString(str, word, del)) do
   begin
      if (WordCompareWithAlf(word, alf)) then
         write (word, ' ');
   end;
end.

Очень вас прошу помочь с решением задачи: Пользуясь процедурой сложения двух векторов, получить сумму векторов a, b, x, y..плиз....

[Anatole]

плиз проверьте в чем ошибки

если компилировалось в Тurbo Pascale и выполняется на процессоре выше 386,то желательно убрать строку

uses crt;

тем болеее что вы не используете этот модуль в своей программе.

[OCTAGRAM]

Сообщение от Anatole

если компилировалось в Тurbo Pascale и выполняется на процессоре выше 386,то желательно убрать строку тем болеее что вы не используете этот модуль в своей программе.

Эта проблема давно решена.

А в чём ошибки?