помогите написать программу

[Касік]

С клавиатуры вводится строка. составить программу, которая будет считать количество слов в тексте, которые заканчиваются на гласную букву, выводить на экран все слова, которые меньше 5 символов, удаляет все слова, которые имеют хоть 1 латинскую букву

[newerow1989]

const glas:set of char=['а','е','ё','и','о','у','ы','э','ю','я'];
var i,i0,count,c1:integer;
    s:string;
    d:boolean;
    arr:array of string;
begin
   Write('s = '); Readln(s);
   s:=s+' ';
   count:=0;
   SetLength(arr,count);
   i0:=1;
   For i:=1 to Length(s) do
      If s[i]=' ' then
      begin
         If i>i0 then
         begin
            count:=count+1;
            SetLength(arr,count);
            arr[count-1]:=Copy(s,i0,i-i0);
         end;
         i0:=i+1;
      end;
   c1:=0;
   For i:=0 to count-1 do
      If arr[i][Length(arr[i])] in glas then
         c1:=c1+1;
   Writeln('c = ',c1);
   Writeln;
   For i:=0 to count-1 do
      If Length(arr[i])<5 then
         Writeln(arr[i]);
   Writeln;
   For i:=count-1 downto 0 do
   begin
      d:=false;
      For i0:=1 to Length(arr[i]) do
         If Ord(arr[i][i0])<=Ord('z') then
         begin
            d:=true;
            Break;
         end;
      If d then
      begin
         count:=count-1;
         For i0:=i to count-1 do
            arr[i0]:=arr[i0+1];
         SetLength(arr,count);
      end;
   end;
   For i:=0 to count-1 do
      Writeln(arr[i]);
   Readln;
end.

[Aleksandr H.]

Сообщение от Касік

составить программу, которая будет считать количество слов в тексте

поиск по форуму не пробовал использовать?
http://www.programmersforum.ru/showt...369#post398369

[Касік]

мне нужно на паскале

[newerow1989]

Это и есть паскаль

[Аватар]

SetLength не в каждом паскале есть, в турбо 7 нет например