помогите разобраться, вот решение задачки, а я не могу в нем разобраться... Опции

[Лейла]

задача: Написать программу, которая для каждого слова заданного предложения определяет долю согласных.Определить слово, в котором доля согласных максимальна.
решение:

  
var s:string;
sl:array of string;
k,l,i,j,sogl:integer;
otn:array of real;
max:real;
begin
readln(s); 
k:=0;
repeat
l:=pos(' ',s);
if l<>0 then  
  begin
  k:=k+1;
  setlength(sl,k);
  sl[k-1]:=copy(s,1,l-1);
  delete(s,1,l);
  end
  else
  begin
  k:=k+1;
  setlength(sl,k);

  sl[k-1]:=copy(s,1,length(s));  
  end;
until l=0;

for i:=0 to k-1 do writeln(sl[i]);

setlength(otn,k);

for i:=0 to k-1 do
  begin
  sogl:=0;
  l:=length(sl[i]);
  for j:=1 to l do
  case sl[i,j] of
  'q','w','r','t','p','s','d','f','g','h','j','k','l','z','x','c','v','b','n',
  'm':sogl:=sogl+1;
  end;          
  write(sl[i],' - ');
  otn[i]:=sogl/l;
  if sogl<>0 then writeln(sogl/l:2:3)
              else writeln('sogl net!');
  end;

max:=otn[0];
l:=0;
for i:=1 to k-1 do
  if otn[i]>max then begin max:=otn[i]; l:=i; end;

writeln;
writeln(sl[l]);

readln;
end.