Листинг программы

program z35;

{ Определить самое короткое и самое длинное

       слово в строке введённой с клавиатуры }

uses crt;

var i,l,min,max,p1,p2,j:longint;a,b:string;

    t1:array[1..60]of string;

    t2:array[1..60]of longint;

 begin

  clrscr;textcolor(11);

   write('введите текст: ');readln(a);

   l:=length(a)+1;a[l]:=' ';

   for i:=1 to l do

    if a[i]=' ' then begin

                      inc(j);t1[j]:=b;

           t2[j]:=length(b);b:='';

          end

          else b:=b+a[i];

    max:=t2[1];min:=t2[1];p1:=1;p2:=1;

   for i:=1 to j do

    begin

     if max<t2[i] then begin max:=t2[i];p1:=i; end;

     if min>t2[i] then begin min:=t2[i];p2:=i; end;

    end;

   writeln('самое длинное слово: ',t1[p1]);

   writeln('самое короткое слово: ',t1[p2]);

   textcolor(13);write('P.S.');

   writeln(' Если слово не выведено на печать, то вы ');

   write(' поставили несколько подряд идущих пробелов!');

  readln;

 end.