Помощь в паскале

Выдаёт ошибку:
Program1.pas(12) : Ошибка времени выполнения: Входная строка имела неверный формат.
Код:

program massbouble;
var
f:text;
buf:array [0..20] of integer;
i,j,z,temp:integer;
begin
 assign(f,'input.txt');
  reset(F);
  i:=0;
  while (not eof(f)) do
begin 
  read(f,buf[i]);
  i:=i+1
end;
for j:=0 to i-1 do
for z:=0 to i-j-1 do 
  begin
   if buf[z]<buf[z-1]
   then
   begin
   temp:=buf[z];
   buf[z]:=buf[z-1];
   buf[z-1]:=temp;
end;
close(F);
end;
assign (f,'output.txt');
 rewrite (F);
  for j:=0 to i-1 do
  write (f,buf[j]);
  close (F);
end.

Содержимое input.txt ?

20 19 18 1 5 2 4 3 6 8 7 9 17 15 16 10 12 11 13 14

Теперь
Program1.pas(18) : Ошибка времени выполнения: Индекс находился вне границ массива.

А где крутые хацкеры или дудосеры?

На cyberforum'e

Оффтоп:
Predator,
Хах. Так ты же вроде хвастался, что Pascal учит логике и все такое.
А почему не выучил то?

Как я мог такое сказать, если паскаль говн%?

как бэ символы, которые читаются имеют формат CHAR, а не Integer
индекс вне границ массива - естественно, ибо читается каждый символ:

(20) = 2символа + пробел =3
(19) = 2 +пробел = 3
и т.д..
зы. Еще у тебя "close" в цикле весит, отсюда еще одна ошибка

короче ошибок уйма

Спасибо, но уже нашёл и исправил ошибки.
Да паскаль не радость на задача была поставлена и её надо было решить.

Вы еще с асмом не знакомились. Попривыкали к халявному алфавиту ))

В KOI-то века знакомился с данным господином.