Определение в заданной строке номера первого по порядку слова, которое короче своего предшественника

program LoL_6;
uses crt;
var
c:char;
st,slovo,sl:string;
f,min,i,k,u,j:integer;
mas:array[1..10]of string;
n,y:array[1..10]of integer;
begin
clrscr;
write('vvesti slovo: ');
readln(St);
for i:=1 to length(st) do
  begin
   slovo:='';
     if st[i]<>' ' then
       begin
        while (st[i]<>' ') and (st[i]<>#0) do
          begin
            slovo:=slovo+st[i];
             if i=length(st) then
              break;
            i:=i+1;
          end;
        k:=k+1;
        mas[k]:=slovo;
      end;
   end;
writeln;
 for i:=1 to k do
  writeln('mas[',i,']=',mas[i]);
 readln;
 for i:=1 to k do
 n[i]:=length(mas[i]);
 for i:=1 to k do   begin
 if (n[i]<n[i-1])  then writeln('slovo#',i); end;
{writeln('vvesti #');
readln(i);
writeln('vvesti bukvu');
readln(c);}
 
f:=0;
for i:=1 to k do begin
if mas[i]='o' then f:=f+1;  end;
writeln('v etom slove bukva ',c,' povtoryaetsya ',f,' raz');
 end.

program cyb37;
uses
 Crt;
const
 sep: set of char = [' ','.',',',':','?','!',';'];
var
 text, sl: string;
 i, k: byte;
 bukva: char;
function Vxod(const s: string; ch: char):byte;
var
 i, k: byte;
begin
 k:= 0;
 for i:= 1 to Length(s) do
  if s[i] = ch then
   inc(k);
 Vxod:= k;
end;
begin
 ClrScr;
 writeln('Vvedite tekst: ');
 readln(text);
 write('Vvedite bukvu: ');
 readln(bukva);
 i:= 0;
 k:= 0;
 sl:= '';
 repeat
  begin
   inc(i);
   if (not (text[i] in sep)) and (i <= Length(text)) then
    sl:= sl+text[i]
   else
    if not (text[i-1] in sep) then
     begin
      if (Length(sl) < k) then
       break
      else
       begin
        k:= Length(sl);
        sl:= '';
       end;
     end;
  end;
 until i > Length(text);
 if sl = '' then
  writeln('Net slova v tekste menshego svoego predshestvennika')
 else
  begin
   writeln('Iskomoe slovo: ', sl);
   writeln('Bukva ', bukva, ' vstrechaetsia v isxodnom slove ', Vxod(sl,bukva),' raz');
  end;
 readln;
end.