Подсчитать процент слов в тексте, имеющих наибольшую длину

program laba;
uses crt;
var s,s1:string;
i,k,l,max:integer;
begin
clrscr;
write('VVedite stroky: ');
readln(s);
if s='' then begin
writeln;
writeln('stroka pysta')
end
else begin
s1:=s;
k:=0;
max:=length(s1);
while pos(' ',s1)<>0 do
begin
if pos(' ',s1)>max then max:=pos(' ',s1)-1;
s1:=copy(s1,pos(' ',s1)+1,length(s1)-pos(' ',s1));
k:=k+1;
end;
if length(s1)>max then max:=length(s1);
k:=k+1;
s1:=s;
while pos(' ',s1)<>0 do
begin
if copy(s1,1,1)<>' ' then l:=l+1;
 
s1:=copy(s1,pos(' ',s1)+1,length(s1)-pos(' ',s1));
end;
l:=l+1;
writeln(l,' ',k);
write('naib ',100*l/k:3:2,'%');
end;
 
readkey;
end.

program laba;
uses crt;
var s:string;
b:array[1..100]of string;
i,k,max,kol:integer;
proc:real;
begin
clrscr;
write('VVedite stroky: ');
readln(s);
if s='' then begin
writeln;
writeln('stroka pysta')
end
else begin
s:=' '+s;
for i:=1 to length(s) do
if s[i]=' 'then inc(k) else b[k]:=b[k]+s[i];
max:=length(b[1]);
for i:=1 to k do
if length(b[i])>max then max:=length(b[i]);
for i:=1 to k do
if length(b[i])=max then inc(kol);
end;
proc:=kol/k*100;
writeln('otvet=',proc:4:2);
readkey;
end.