Типизированный файл: редактирование, удаление, чтение

uses crt,GraphABC;
type date=record;
day:1..31;
month:1..12;
year:1900..2020;
end;
type student=record;
grup:string[10];
fam:string[20];
name:string[20];
data:date;
adres:string[13];
end;
var a:array[1..10] of string; f:file of student;
s:student;
gr:string;
k,i:integer;
//
procedure menu(x,y,n:integer; var k:integer);
var i:integer; c:char;
begin
k:=1;
repeat
for i:=1 to n do
begin
if i=k then setfontcolor(clred) else setfontcolor(clblack);
textout(x,y+50*i,a[i]);
end;
c:=readkey;
if c=#80 then k:=k+1; if k>n then k:=1;
if c=#72 then k:=k-1; if k<1 then k:=n;
until c=#13;
setfontcolor(clblack);
end;
//
Begin
a[1]:='Создание';
a[2]:='Добавление';
a[3]:='Чтение';
a[4]:='Удаление';
a[5]:='Редактирование';
a[6]:='Выход';
assign(f,'Тип.dat');
repeat
menu(5,20,6,k);
setfontcolor(clblack);
case k of
1:begin
clearwindow;
rewrite(f);
for i:=1 to 2 do
begin
writeln('Введите группу:'); readln(s.grup);
writeln('Введите Фамилию:'); readln(s.fam);
writeln('Введите имя:'); readln(s.name);
writeln('Введите день:'); readln(s.data.day);
writeln('Введите месяц:'); readln(s.data.month);
writeln('Введите год:'); readln(s.data.year);
writeln('Введите адрес:'); readln(s.adres);
write(f,s);
end;
close(f);
end;
2:begin
clearwindow;
reset(f);
seek(f,filesize(f));
writeln('Введите группу'); readln(s.grup);
writeln('Введите Фамилию'); readln(s.fam);
writeln('Введите имя'); readln(s.name);
writeln('Введите день'); readln(s.data.day);
writeln('Введите месяц'); readln(s.data.month);
writeln('Введите год'); readln(s.data.year);
writeln('Введите адрес:'); readln(s.adres);
write(f,s);
close(f);
end;
3:begin
clearwindow;
reset(f);
while not eof(f) do
read(f,s); if s.grup=gr then
write(s.grup);
write(s.fam);
write(s.name);
write(s.data.day);
write(s.data.month);
write(s.data.year);
write(s.adres);
close(f);
end;
end;
until readkey=#32;
end.