Типизированные файлы на свободную тему

uses crt;
const n=4;
type mail=record
     naimenovanie:string;
     sort:string;
     data:integer;
 end;
var a:array[1..n] of mail;
    i,j:integer;
    t:mail;
    c:string;
 
begin
clrscr;
for i:=1 to 3 do
 with a[i] do
  begin
   writeln;
   write(' Наименование: ');readln(a[i].naimenovanie);writeln;
   write(' Сорт : ');readln(a[i].sort);writeln;
   write(' Дата получения : ');readln(a[i].data);writeln;
   writeln('---------------------------------');
  end;writeln;
 
write(' Добавить запись? (Y/N) : ');readln(c);writeln;
if(c='y')or(c='Y')then
 begin
  for i:=n to n do
   with a[i] do
    begin
     write(' Наименование: ');readln(a[i].naimenovanie);writeln;
   write(' Сорт : ');readln(a[i].sort);writeln;
   write(' Дата получения : ');readln(a[i].data);writeln;
   writeln('---------------------------------');
    end;
   writeln('---------------------------------');
  writeln;
 end;
 
write(' Удалить запись? (Y/N) : ');readln(c);writeln;
if(c='y')or(c='Y')then
 begin
  write(' Введите номер удаляемой записи : ');readln(i);
   for j:=i to n-1 do
    begin
     a[j]:=a[j+1];
     writeln;
    end;writeln('-----------------------------------');
  end;writeln;