Поменять первое слово предложения с самым коротким, последнее с самым длинным

var
s,s1,b:string;
    a:array[1..100]of string;
i,k,min,max:integer;
begin
write('введите строку : ');
readln(s);
s:=' '+s;
for i:=1 to length(s) do
if s[i]=' ' then
inc(k)
else
a[k]:=a[k]+s[i];
min:=1;
max:=1;
for i:=1 to k do
begin
if length(a[i])>length(a[max]) then max:=i;
if length(a[i])<length(a[min]) then min:=i;
end;
   writeln('самое длинное слово: ',a[max]);
   writeln('самое короткое слово: ',a[min]);
b:=a[max];
a[max]:=a[min];
a[min]:=b;
 
for i:=1 to k do
s1:=s1+a[i]+' ';
writeln(s1);
readln;
end.

program zad;
    const n=10;
var
      s,s1,b,c:string;
      a:array[1..n]of string;
      i,k,min,max:integer;
begin
            write('введите строку : ');
              readln(s);
                s:=' '+s;
                for i:=1 to length(s) do
                if s[i]=' ' then
                inc(k)
                  else
                   a[k]:=a[k]+s[i];
                      min:=1;
                        max:=1;
                     for i:=1 to k do
        begin
             if length(a[i])>length(a[max]) then max:=i;
             if length(a[i])<length(a[min]) then min:=i;
end;
               b:=a[min];
               a[min]:=a[1];
               a[1]:=b;
               c:=a[max];
               a[max]:=a[n];
               a[n]:=c;
 
              for i:=1 to k do
                s1:=s1+a[i]+' ';
                writeln(s1);
                 readln;
end.