Работа со словами в Pascal

program minmaxlenghtstring;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
    s, slovo, s1, minstr, maxstr, sback: String;
begin
Readln(s);
Slovo := '';

if s[Length(s)] = '.' then Delete(s, Length(s), Length(s));
if s[Length(s)] <> ' ' then s := s + ' ';
sback := s;

  while s <> '' do
  begin
    s1 := copy(s, 1, pos(' ', s)-1);
      if Length(slovo) < Length(s1) then
        slovo := s1;
    Delete(s, 1, pos(' ', s));
  end;

maxstr := slovo;
minstr := slovo;

  while sback <> '' do
  begin
    s1 := copy(sback, 1, pos(' ', sback)-1);
      if Length(minstr) > Length (s1) then
          minstr := s1;
    Delete(sback, 1, pos(' ', sback));
  end;


  Writeln('Samoe dlinnoe = ', Length(maxstr));
  Writeln('Samoe korotkoe = ', Length(minstr));

Readln;
end.

{
[COLOR="Blue"]Это только в разделе Фриланс можешь писать и там предлагать свои услуги,но не в Студентах,тут помощь бесплатная.[/COLOR]
}