Написать программу, осуществляющую преобразование строки с использованием встроенных функций работы со строками

var s,s1,s2,sk,sd:string;
    i,j,mn,mx:integer;
begin
writeln('Введите строку из не менее чем из двух слов, разделенных пробелами');
readln(s1);
s1:=' '+s1+' '; //добавим пробелы в начало и в конец для удобства
mn:=255;// минимальная и максимальная длина слов
mx:=0;
i:=2;
while i<length(s1) do//идем по строке
if (s1[i]<>' ')and(s1[i-1]=' ') then //если не пробел, а перед ним пробел, новое слово
 begin
  s:='';
  j:=i;
  while(j<=length(s1))and(s1[j]<>' ') do //составим его
   begin
    s:=s+s1[j];
    j:=j+1;
   end;
  if length(s)>mx then
   begin
    mx:=length(s);
    sd:=s;//первое длинное слово
   end;
  if length(s)<mn then
   begin
    mn:=length(s);
    sk:=s; //первое короткое слово
   end;
  i:=i+length(s);//перешагшем через слово
 end
else i:=i+1; //пропускаем пробелы
s2:=sk+' '+sd;
writeln('Строка из короткого и длинного слов');
write(s2)
end.

var
  s1,s2,s3:string;
begin
  write('enter string:');
  readln(s1);
  s1:=s1+' ';
  while pos('  ',s1)>0 do delete(s1,pos(' ',s1),1);
  while(s1[1]=' ')and(length(s1)>0) do delete(s1,1,1);
  s2:=copy(s1,1,pos(' ',s1)-1);
  s3:=copy(s1,1,pos(' ',s1)-1);
  while pos(' ',s1)>0 do
    begin
      if length(copy(s1,1,pos(' ',s1)-1))<length(s2)then s2:=copy(s1,1,pos(' ',s1)-1);
      if length(copy(s1,1,pos(' ',s1)-1))>length(s3)then s3:=copy(s1,1,pos(' ',s1)-1);
      delete(s1,1,pos(' ',s1));
    end;
  writeln('result:=',s2,' . ',s3);
end.