Попытка считывания за концом текстового файла

uses crt;
type pam=record
god:integer;
nazv: string[50];
ras: longint;end;
var 
a:array [1..4] of pam; c,z:integer; tex:text; t:string; 
  
procedure vvod;
var c:integer; begin
for c:=1 to 3 do
begin
writeln('Введите год создания ');
readln(a[c].god);
writeln('Введите название ');
readln(a[c].nazv);
writeln('Введите годовую стоимость расходов на содержание ');
readln(a[c].ras);
end;end;
 
procedure vivod;
var c:integer; begin
for c:=1 to 4 do
writeln(' ',a[c].god + ' '  + a[c].nazv, ' '+ a[c].ras);end;
 
procedure zapis;
var c:integer; begin
 Assign(tex, 'C:\text.txt');
 Rewrite(tex);
 writeln(tex, High(a));
 for c:=1 to 3 do
 writeln(tex,' ',a[c].god + ' ' + a[c].nazv, ' '+ a[c].ras);
 close(tex);end;
 
 
  procedure vmas;
  var 
    i, n: Byte; ras:longint;
  begin
  Assign(tex, 'C:\text.txt');
    Reset(tex);
  Readln(tex,n);
  for i:=1 to n do
  begin
    Read (tex,a[i].god);
    Read (tex,a[i].nazv);
    Read (tex,a[i].ras);
  end;
  close(tex);
  end;
 
procedure dovk;
var y:integer;
begin
writeln('Ввод данных нового элемента');
inc(c);
with a[c+3] do
begin
write('введите год создания: ');
readln(god);
write('введите название: ');
readln(nazv);
write('введите расходы на содержание: ');
readln(ras);
end;
end;
 
 
begin
z:=1;
while z<>0 do
  begin
writeln('Введите цифру для выбора');
writeln('1 - ввод данных в массив');
writeln('2 - вывод на экран введенных данных');
writeln('3 - запись введенных данных в файл');
writeln('4 - ввод в конец массива');
writeln('5 - ввод из файла');
writeln('6 - Введите чтобы выйти');
readln(z);
case z of
  1:vvod;
  2:vivod;
  3:zapis;
  4:dovk;
  5:vmas;
  6:Exit;
  end;
  readln;
    clrscr;
  end;
end.

procedure vmas;
var i, n: Byte;
    s:string;
begin
assign(tex,'text.txt');
reset(tex);
readln(tex,n);
writeln('n=',n);
for i:=1 to n do
 begin
  readln(tex,s);
  a[i].god:=strtoint(copy(s,1,pos(' ',s)-1));
  delete(s,1,pos(' ',s));
  a[i].nazv:=copy(s,1,pos(' ',s)-1);
  delete(s,1,pos(' ',s));
  a[i].ras:=strtoint(s);
 end;
close(tex);
//вывод для проверки
for i:=1 to n do
 with a[i] do
 writeln('a[',i,']: ',god,' ',nazv,' ',ras);
end;