вот как я делала:
Program Zplata;
uses wincrt;
var w,f:array [1..10] of string;
str,kl:string;
i,p,k,j,m,nom,b,h:integer; s:array [1..98] of integer;
begin
writeln('ââåäè str=');
readln(str);
write('ki=');
readln(kl);
str:=str+' ';
k:=0;
while str<>'' do begin
p:=pos(' ',str);
if p>1 then begin
k:=k+1;
w[k]:=copy(str,1,p-1);
end;
delete(str,1,p);
end; b:=length(kl);
for i:=1 to k do begin
for j:=1 to b do
if (w[i][j]=kl[j]) and
( w[i][j+1]=kl[j+1]) then begin f[i]:=w[i];
s[i]:=length(f[i]);
if m<s[i] then begin m:=s[i]; nom:=i;end; end; end;
writeln(f[nom]);
end.
но у меня выводится не так как надо
подправте пожалуйста!!!