TurboPascal (Строки)

[JigSaw]

Здравствуйте, помогите пожалуйста решить эту задачу:
Задано предложение, состоящее из слов, разделённых пробелами. Определить самое длинное слово и написать кол-во букв в нём.

Вот то, что я написал, если ввожу более 3 слов - не получается.

Program zadacha4;
Uses crt;
Var a,s,slovo:string;i,z,max:integer;
Begin
ClrScr;
Writeln('vvedute text');
Readln(a);
For i:=1 to length(a) do begin
                         If a[i]=' ' then begin
                                          s:=copy(a,1,i-z);
                                          delete(a,1,i-z);
                                          z:=length(s)-1;
                                          end;
                         If z>max then begin
                                       max:=z;
                                       slovo:=s;
                                       end;
                         end;
Z:=length(slovo)-1;
Writeln('V texte ',z,' bykv');
Writeln('Camoe dlinnoe slovo - ',slovo);
readln;
end.

Понимаю, что ошибка в строках
s:=copy(a,1,i-z);
delete(a,1,i-z);
но на что заменить, догадаться не могу.

[Serge_Bliznykov]

главная ошибка - это то, что Вы удаляете символы из строки, по которой у Вас идёт цикл FOR
так нельзя! (либо нужен цикл с условием и ручками изменять i, либо цикл от конца строки к началу..)

а может проще? Сделать примерно так?

var s,w,MaxWord : string;
  i : integer;
begin
  s := 'Мало просто изучать Pascal на нём ещё и писать надо';

  s := s + ' ';
  MaxWord := '';
  w := '';
  WriteLn;
  for i:=1 to length(s) do begin
    if s[i]<>' ' then w := w+s[i]
    else {пробел нашли, значит это конец слова}
     begin
       if Length(w)>Length(MaxWord) then MaxWord := w;
       w := ''; {обнулили текущее слово - готовы накапливать новое слово}
     end;
  end;
  if Length(MaxWord)=0 then WriteLn('Вообще не нашли слов!')
  else 
     WriteLn('Слово с максимальной длиной (',
         Length(MaxWord),' букв): ', MaxWord);
  readln;
end.

[JigSaw]

Serge_Bliznykov, большое спасибо, понял ошибки. =)
Не могли бы привести пример с "цикл от конца строки к началу"? Любопытно)

[phomm]

for i := length(s) downto 1 do ...
прямо чистый английский язык )

[JigSaw]

phomm, я знаю как выглядит этот цикл. Имел в виду именно что идёт после do, но уже сам разобрался)