program PascalGuru;
 
var p:integer;    {описание переменных}
    i,j,n,max:integer;
    s,x:string;
    A:array[1..100] of string;
 
 
begin
write('Vvedite stroky (cerez probel): ');
readln(s);
j:=0;
repeat
inc(j);
p:=pos(' ',s);
x:=copy(s,1,p-1);
A[j]:=x;
delete(s,1,p);
until p=0;
n:=j;
A[n]:=s;
{----------------}
 
max:=1;
for i:=2 to n do
if length(A[i])>length(A[max]) then max:=i;
 
writeln('Samoe dlinnoe slovo: ',A[max]);
 
readln;
end.