Найти два наибольших элемента массива целых чисел

var
s,s1:string;
a,i,k:integer;
begin
writeln('Ââåäèòå ñòðîêè,ïåðâàÿ ñòðîêà áîëüøå 2-é');
readln(s,s1);
a:=length(s);
For i:=1 to a do
if pos(s[i],s1)>0 then
inc(k);
If k>0 then
writeln('Äà') else
writeln('Íåò');
end.

var
s,s1:string;
a,i,k:integer;
begin
writeln('Ââåäèòå ñòðîêè,ïåðâàÿ ñòðîêà áîëüøå 2-é');
readln(s,s1);
a:=length(s);
For i:=1 to a do
if pos(s1[i],s)>0 then
inc(k);
If k=a then
writeln('Äà') else
writeln('Íåò');
end.

var
s:string;
a:array [1..100] of integer;
i,count,max:integer;
begin
readln(s);
for i:=1 to length(s) do
begin
if s[i]=' ' then inc(count);
if (s[i]<>' ') and (count>0) then
begin
a[i]:=count;
count:=0;
end;
end;
max:=0;
For i:=1 to 100 do
begin
if a[i]>max then max:=a[i];
end;
writeln('наибольшее количество идущих подряд пробелов ',max);
end.

var
s:string;
a,i:integer;
begin
readln(s);
a:=length(s);
For i:=a downto 1 do
if (s[i]=' ') and (s[i]=s[i-1]) then delete(s,i,1);
writeln(s);
end.

var
s,s1,s3:string;
a,i,x,y:integer;
begin
readln(s);
a:=length(s);
For i:=1 to a do
begin
x:=pos(' ',s);
if x>0 then
begin
s1:=copy(s,1,x-1);
delete(s,1,x);
if length(s1)>y then
begin
y:=length(s1);
s3:=s1;
end;
end;
end;
if x=0 then
begin
s1:=copy(s,1,length(s));
if length(s1)>y then s3:=s;
writeln('Слово = ',s3);
end;
end.