Устранить ошибку с чтением файла - Pascal ABC

uses crt,dos;
var
spisok:file of string;
 
n,i,za,ek,x:integer;
sredn:real;
 
name:string;
zach:array[1..5]of string;
 
ekzam:array[1..5]of string;
 
ekzamen:array[1..5]of integer;
dannie:array[1..13,1..10]of string;
 
begin;
textbackground(black);
textcolor(green);
repeat
begin;
clrscr;
writeln('Hello! Eta proga vipolnit operacii sxojie s funkci9mi BD xot9 smisl ne9sen)))'); writeln;
Writeln('Viberite udobnii dl9 vas punkt:');
writeln('1 - redaktirovanie');
writeln('2 - prosmotr vsego faila');
writeln('3 - prosmotr 1 94eiki');
writeln('4 - exit');
readln(x);
case x of
1: begin;
clrscr;
writeln('Ykajite im9 faila');
readln(name);
writeln('Vvedite koli4estvo y4ashixs9 - ');
readln(n);
writeln;
for i:=1 to n do
begin;
clrscr;
writeln('vvedite informaciyu po ',i,'-y y4enuky ');
writeln;
writeln('Famili9');
writeln;
readln(dannie[1,i]);
writeln;
writeln('Im9');
writeln;
readln(dannie[2,i]);
writeln;
writeln('otchestvo');
writeln;
readln(dannie[3,i]);
writeln;
writeln('vvedite rezultati zachetov ');
for za:=1 to 5 do
begin;
writeln; writeln('vvedite rezultat ',za,'-go zacheta');
writeln; readln(dannie[za,i]); writeln;
 
end;
for ek:=1 to 5 do
begin;
writeln('vvedite rezultat ',ek,'-go ekzamena');
writeln; readln(dannie[ek,i]);
writeln('povtorite plz');
readln(ekzamen[ek]);
sredn:=sredn+ekzamen[ek];
end;
sredn:=sredn/5;
 
assign(spisok,name);
rewrite(spisok);
for za:=1 to 13 do
write(spisok,dannie[za,i]);
readkey;
end; end;
2: begin;
clrscr;
writeln('Ykajite im9 faila');
readln(name);
writeln('Vvedite koli4estvo y4ashixs9(esli xotite vivod vsex dannix, to vvedite 0) - ');
readln(n);
if n=0 then n:=10;
writeln('rasslab''tes'' i podojdite');
assign(spisok,name);
WHILE not eof(spisok) do begin;
reset(spisok);
for i:=1 to n do
begin;
writeln('---------------------------------------------------------------------------------');
for za:=1 to 13 do
begin;
read(spisok,dannie[za,i]);
 
write(dannie[za,i],' | ');
 
end; end;
writeln;
writeln('vivod failov zakon4en, najmite lubyiy knopku dl9 vozvrata');
readkey;
end; end;
3: begin;
clrscr;
writeln('Ykajite im9 faila');
readln(name);
assign(spisok,name);
while not eof(spisok) do begin;
writeln('Vvedite nomer 94eiki');
readln(n);
reset(spisok);
for i:=1 to n do
begin;
if i=n then begin;
writeln('94eika pod nomerom ',n,' - imeet sledyius4ee soderjanie: ');
writeln;
writeln('---------------------------------------------------------------------------------');
for za:=1 to 13 do
read(spisok,dannie[za,i]);
write(dannie[za,i],' | ');
end;
begin;
for za:=1 to 13 do
read(spisok,dannie[za,i]);
end; end;
 
writeln('vivod okon4en, najmite lybuiy knopky dl9 vixoda v glavnoe menu');
writeln('---------------------------------------------------------------------------------');
end; end;
end; end;
until x=4;
readln;
end.