Комментарии к коду

Var max,text,prov:string; i:byte;
begin
max:=''; prov:='';
Writeln('Vvedite text');
readln(text);
if text[length(text)]<>' ' then text:=text+' ';
for i:=1 to length(text) do
begin
if text[i]<>' '
then prov:=prov+text[i]
else begin
if length(prov)>length(max)
then max:=prov;
prov:='';
end;
end;
for i:=1 to length(text) do
begin
if text[i]<>' '
then prov:=prov+text[i]
else begin
if length(prov)=length(max)
then Writeln(prov);
prov:='';
end;
end;
readln;
end.

var
    max, text, prov : String;
    i : Byte;
begin
    max := ''; prov:=''; //инициализируем
    Write('Vvedite text: '); ReadLn(text); //считываем строку текста
    if (text[length(text)] <> ' ') //если последний символ не пробел
    then
        text := text + ' '; //то добавляем оный в конец строки (чтобы не провтыкать конец последнего слова)
    for i := 1 to Length(text) do //по всей длине строки
    begin
        if (text[i] <> ' ') //если текущий символ не пробел
        then
            prov := prov + text[i] //то копируем оный символ во временную строку
        else
        begin //иначе (если таки пробел)
            if (length(prov) > length(max)) //если "вырезанное слово" больше максимума в памяти
            then
                max := prov; //пересохраняем максимум
            prov := ''; //и обнуляем
        end;
    end;
    for i := 1 to Length(text) do //по всей длине строки
    begin
        if (text[i] <> ' ') //если не пробел
        then
            prov := prov + text[i] //запоминаем символ
        else
        begin //иначе
            if (Length(prov) = Length(max)) //если выбранное слово такой же длины как и максимум
            then
                WriteLn(prov); //выводим
            prov := ''; //и обнуляем
        end;
    end;
    ReadLn;
end.