Delphi, подскажите какая ошибка.

[aleksandrdss]

var f:file of integer;max,i:integer;
begin
{Создадим файл}
assign(f,'file1.txt');rewrite(f);
{Записать в файл числа}
i:=0; while (i<18) do begin write(f,random(100)); inc(i);end;
{Читать файл числа}
reset(f);max:=0;
while not eof(f) do begin read(f,i);if i>max then max:=i;end;
{Закроем файл}
close(f);
writeln(max);
end.

[Скандербег]

var f:file of integer;max,i,n:integer;
begin
{Создадим файл}
assignfile(f,'file1.txt');rewrite(f);
{Записать в файл числа}
i:=0; while (i<18) do begin n:=random(100); write(f,n); inc(i);end;
{Читать файл числа}
reset(f);max:=0;
while not eof(f) do begin read(f,i);if i>max then max:=i;end;
{Закроем файл}
closefile(f);
writeln(max);
end.