Строки в Pascal

[Альбиша]

Помогите пожалуйста написать программу, очень надо, очень очень!!!
Задание такое: Найти во введенном тексте самое длинное и самое короткое слово.

[Serge_Bliznykov]

Альбиша, для начала посмотрите, внизу страницы похожие (по названию) темы...
Вам нужно разобрать строчку на отдельные слова, при разборе проверять длину слова и сравнивать её (длину) с переменными MinLen и MaxLen (если меньше MinLen, тогда MinLen := длина этого слова) (если больше MaxLen, тогда MaxLen := длина этого слова)
при этом сохранять не только MinLen/MaxLen, но и сами слова (MinSlovo / MaxSlovo).. и всё...

[Альбиша]

Код я написала, помогите мне блок-схему нарисовать с комментариями, пожалуйста((( Я просто можно сказать совсем не шарю в программировании. На первом курсе толком не научили ничему, зато теперь требуют выполнения задач.

Вот программа:

program 1111;
       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;
  write('Vvedite text: ');
  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('samoye dlinoye slovo: ',t1[p1]);
   writeln('samoe malenkoye slovo: ',t1[p2]);
     readln;
 end.

[Serge_Bliznykov]

Есть же такая программа - FCEditor
Ей можно автоматически сгенерировать блок-схему...
Ну ладно. сделаю. получается так, как во вложении...