Паскаль. Исправьте ошибки

Исправьте ошибки.

Нужно создать таблицу, которая будет выводить данные о погоде. Программа работает, но вместо таблицы с введёнными данными выводится просто начало.

Program baza;
const n=5;

label 10;
type rec = record
temp: real;
date: string;
overcast: string;
fallout: string;
region: string;
end;

FT = file of integer;
Var
a:ft;
i,z:integer;
s:real;
Procedure Sozd (var a: ft);
Var i,j:integer;
zk:rec;
begin
rewrite (a);
j:=1;
while j<>80 do
begin
Write('Введите температуру: ');
readln(zk.temp);
Write('Введите дату: ');
readln(zk.date);
Write('Введите облачность: ');
readln(zk.overcast);
Write('Введите осадки: ');
readln(zk.fallout);
Write('Введите регион: ');
readln(zk.region);
Write(a);
Write('Запись сохранена! Будете ещё вносить данные? Если да, то нажмите 80');
readln (j);
end;
close (a);
end;

Procedure vyvod (var a: ft);
Var i:integer;
zk:rec;
begin
reset (a);
writeln('==========================================');
writeln('|Температура|Дата|Облачность|Осадки|Регион|');
writeln('==========================================');
while not eof(a) do
begin
read (i);
write('|',zk.temp:2,'|');
write('|',zk.date:10,'|');
write('|',zk.overcast:5,'|');
write('|',zk.fallout:3,'|');
write('|',zk.region:3,'|');
writeln;
writeln ('-------------------------------');
end;
close (a);
end;

procedure delete (var a:ft);
Var n,m:longint;
i:byte;
mas:array [1..20] of rec;
begin
i:=1;
reset(a);
writeln ('vvedite nomer zapisi dlja udalenija (If the end of the record is then press 80)?');
readln(n);
m:=filesize(a)-n;
seek (a,n);
while not eof(a) do
begin
read (i);
i:=i+1;
end;
close (a);
reset (a);
seek (a,n-1);
truncate (a);
close (a);
reset (a);
seek (a,n-1);
for i:=1 to m do
write (a);
end;

Procedure poisk (var a:ft);
var i:integer;
zk:rec;
date:string;
begin
reset (a);
writeln ('Введите дату для поиска ');
readln (date);
writeln ('Список с заданной датой ');
writeln('===========================================');
writeln('|Температура|Дата|Облачность|Осадки|Регион|');
writeln('===========================================');
while not eof(a) do
begin
read(i);
while not eof(a) do
begin
write('|',zk.temp:2,'|');
write('|',zk.date:10,'|');
write('|',zk.overcast:5,'|');
write('|',zk.fallout:3,'|');
write('|',zk.region:3,'|');
writeln;
writeln('-------------------------------------------');
end;
end;
close(a);
end;

begin
10:
assign (a,'fff');
writeln (' Меню ');
writeln ('1: Создание');
writeln ('2: Вывод ');
writeln ('3: Удаление');
writeln ('4: Поиск ');
writeln ('5: Выход ');
readln (z);
case z of
1: sozd(a);
2: vyvod (a);
3: delete(a);
4: poisk (a);
5: exit;
end; goto 10;
readln
end.