Работа с типизированными фалами - Turbo Pascal - Ответ 4006255

Program la21;
Uses crt;
Label m1,m2,m3;
Type
cat=record
group:word;
nomer:word;
name:string[20];
data:string[15];
pol:string[10];
end;
Var
sst:file of cat;
koll:char;
dan:cat;
Procedure cozd (Var dan:cat);
Var
sst: file of cat;
begin
clrscr;
assign(sst,'D:\date.dat');
rewrite(sst);
Writeln('Введите данные о студенте');
writeln('Код группы');
readln(dan.group);
Writeln ('Номер по журналу');
readln(dan.nomer);
Writeln ('Ф.И.О.');
readln(dan.name);
writeln ('Дата рождения');
readln(dan.data);
writeln('Пол');
readln(dan.pol);
write(sst,dan);
close(sst);
end;
Procedure vivod (Var dan:cat);
Var
sst: file of cat;
Begin
Clrscr;
assign(sst,'D:\date.dat');
{$I-}
reset(sst);
if ioresult <>0
then writeln ('Код ошибки ',ioresult,' ','ошибка чтения файла',' ');
{$I+}
while (not Eof(sst)) do
  begin
  read(sst,dan);
  Writeln('Код группы  ',dan.group);
  Writeln ('Номер по журналу',dan.nomer);
  Writeln ('Ф.И.О.  ',dan.name);
  Writeln ('Дата рождения  ',dan.data);
  Writeln ('Пол  ',dan.pol);
  Writeln;
  end;
Close(sst);
readln;
end;
Procedure korect (Var dan:cat);
Var
sst:file of cat;
Begin
assign (sst,'D:\date.dat');
reset(sst);
while (not Eof(sst)) do
begin
Clrscr;
read(sst,dan);
 Writeln('Код группы  ',dan.group);
  Writeln ('Номер по журналу',dan.nomer);
  Writeln ('Ф.И.О.  ',dan.name);
  Writeln ('Дата рождения  ',dan.data);
  Writeln ('Пол  ',dan.pol);
  Writeln;
  end;
  rewrite(sst);
   writeln('Код группы');
readln(dan.group);
Writeln ('Номер по журналу');
readln(dan.nomer);
Writeln ('Ф.И.О.');
readln(dan.name);
writeln ('Дата рождения');
readln(dan.data);
writeln('Пол');
readln(dan.pol);
write(sst,dan);
Close (sst);
end;
Procedure showchar (Var dan:cat);
Var
re:cat;
r:longint;
Begin
Clrscr;
assign (sst,'D:\date.dat');
reset(sst);
read(sst,dan);
writeln ('‚Введите номер строчки которую необходимо отредактировать.');
readln(r);
Clrscr;
seek(sst,r);
read(sst,dan);
write(sst,dan);
Close(sst);
end;
Begin
Clrscr;
writeln ('Выберите пункт меню');
writeln ('1.Создание файла данных');
writeln ('2.Просмотр файла данных');
writeln ('3.Корректировки файла данных');
writeln ('4.Удаление файла данных');
writeln ('5.Корректировка по номеру строки');
readln(koll);
if koll='1' then cozd(dan);
if koll='2' then vivod (dan);
if koll='3' then korect(dan);
if koll='4' then
begin
assign (sst,'D:\date.dat');
rewrite(sst);
erase (sst);
close (sst);
end;
if koll='5' then showchar(dan);
end.