Составьте программу поиска в заданном тексте слова наибольшей длины

uses crt;
var s: string;
    i,k: integer;
    c: char;
begin
write('Введите строку ');
readln(s);
write('Введите символ ');
readln(c);
for i:=1 to length(s) do
    if s[i]=c then inc(k);
writeln('Символ "',c,'" входит в строку ',k,' раз(а)');
end.

uses crt;
var s,sl,smax: string;
    i,dmax: integer;
begin
write('Введите строку ');
readln(s);
s:=s+' '; sl:='';dmax:=0;
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i] else
       begin
       if length(sl)>dmax then
          begin
          dmax:=length(sl);
          smax:=sl;
          end;
       sl:='';
       end;
writeln ('Самые длинные слова длиной в ',dmax,' символов:');
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i] else
       begin
       if length(sl)=dmax then
          write(sl,' ');
       sl:='';
       end;
readkey
end.

uses crt;
var s,sl,smax: string;
    i,dmax: integer;
begin
write('Введите строку ');
readln(s);
s:=s+' '; sl:='';dmax:=0;
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i]
       else
       begin
       if length(sl)>dmax then
          begin
          dmax:=length(sl);
          smax:=sl;
          end;
       sl:='';
       end;
writeln ('Самое длинное слово "',smax,'" длиной в ',dmax,' символов');
end.

var
i,n,max,Imax:integer;
a:array[1..1000]of integer;
begin
read(n);
for i:=1 to n do
begin
read(a[i]);
if i=1 then begin max:=a[i]; Imax:=i; end;
if a[i]>max then begin max:=a[i]; Imax:=i; end;
end;
writeln(Imax);
end.

uses crt;
var s,sn: string;
    c1,c2: char;
    i: integer;
begin
write('Введите строку ');
readln(s);
write('Введите первый символ ');
readln(c1);
write('Введите второй символ ');
readln(c2);
sn:='';
for i:=1 to length(s) do
    if (s[i]<>c1) and (s[i]<>c2) then sn:=sn+s[i];
write(sn);
end.