Версия для печати темы

uses crt;
var s:string;
    l,k,i,j:integer;
    masword:array[1..100] of string;
    min:string;
begin clrscr;
   write('Vvedite stroku: ');
   readln(s);
   l:=length(s);
   j:=0;
   s:=s+' ';
   l:=length(s);
   k:=0;
   for i:=1 to l do
     if  s[i]=' ' then begin k:=k+1;
     masword[k]:=copy(s,j+1,i-j-1);
     j:=i;
     end;
   min:=s[1];
   for i:=2 to k do
      if length(min)>length(masword[i]) then min:=masword[i];
   writeln('‘ ¬®Ґ Є®а®вЄ®Ґ б«®ў® - ',min,' ¤«Ё­®© - ',length(min));
readln
end.