Не могу понять в чем ошибка!? Вместо слова выводит только одну букву!
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.