Программа на строки

Uses crt;
const
glasn=['а','е','ё','и','о','у','э','ю','я'];
soglasn=['б','в','г','д','ж','з','й','к','л','м','н','п','р','c','т','ф','х','ц','ч','ш','щ','ъ','ь'];
var
  stroka:string;
  nach_sl:integer;
  kol_bukv:integer;
  max_slovo:string;
  max_dl:integer;
  i,n:integer;
  slovo:string;
  kol_gl, kol_sgl:integer;
  proc_gl, proc_sgl:real;
begin
  textcolor(15);
  textbackground(1);
  clrscr;
  {Ввод исходных данных}
  Writeln('Задача:');
  Writeln('1)найти самое длинное слово (последнее по порядку)');
  Writeln('2)Найти процентное соонтошение гласных и согласных букв в словах, предшествующих самому длинному');
  Writeln('Введите набор слов через пробел и поставьте в конце точку');
  Readln(stroka);
  clrscr;
  Writeln('Задача:');
  Writeln('1)найти самое длинное слово (последнее по порядку)');
  Writeln('2)Найти процентное соонтошение гласных и согласных букв в словах, предшествующих самому длинному');
  Writeln(stroka);
  nach_sl:=1;
  max_dl:=0;
  for i:=1 to length(stroka) do
    if (stroka[i]=' ') or (stroka[i]='.') then
       begin
         kol_bukv:=i-nach_sl;
         if max_dl<=kol_bukv then
            begin
              max_dl:=kol_bukv;
              max_slovo:=copy(stroka,nach_sl,kol_bukv);
            end;
            nach_sl:=i+1;
        end;
   writeln('Самое длинное слово из перечисленных (последнее по порядку)- ',max_slovo);
   nach_sl:=1;
   kol_gl:=0;
   kol_sgl:=0;
   proc_gl:=0;
   proc_sgl:=0;
   for i:=1 to pos(max_slovo,stroka) do
   if (stroka[i]=' ') or (stroka[i]='.')
   then
   begin
   if stroka[i] in glasn then inc(kol_gl);
   if stroka[i] in soglasn then inc(kol_sgl);
   kol_bukv:=kol_gl+kol_sgl;
   proc_gl:=kol_gl*100/kol_bukv;
   proc_sgl:=kol_sgl*100/kol_bukv;
   slovo:=copy(stroka,nach_sl,kol_bukv);
   nach_sl:=i+1;
   writeln(' В слове  ',slovo,' Количество согласных(в процентах) ',proc_sgl,' Количество гласных(в процентах)',proc_gl);
   end;
   readln;
   end.