База данных судебных разбирательств

uses crt;
const line='------------------------------------------------------------------------';
      shap='| Номер |Причина разбирательства|    Дата    |   Истец    |  Ответчик  |';
 
type delo = record
     nom:  string[5];
     pri:  string[20];
     dad:  1..31;
     dam:  1..12;
     day:  1900..2012;
     int:  string[9];
     ina:  string[10];
     ont:  string[9];
     ona:  string[10];
     end;
 
var f: file of delo; v: byte;
 
procedure Vvod (var ff: file of delo);
var i,n: integer; d: delo;
begin
clrscr;
rewrite(f);
write('Количество записей: '); readln(n);
writeln('Внесите данные:');
for i:=1 to n do
    with d do
         begin
         write('Судебное дело №: ');readln(nom);
         write('Причина разбирательства: ');readln(nom);
         write('Дата: день месяца: ');readln(dad);
         write('Дата: месяц: ');readln(dam);
         write('Дата: год: ');readln(day);
         write('Истец: номер телефона: ');readln(int);
         write('Истец: компания: ');readln(ina);
         write('Ответчик: номер телефона: ');readln(ont);
         write('Ответчик: компания: ');readln(ona);
         write(ff,d);
         end;
close (ff);
writeln('Файл заполнен. Enter для продолжения...');
readln;
end;
 
procedure Vyvod (ff: file of delo);
var d: delo;
begin
clrscr;
reset(ff);
writeln('Сведения о судебных делах ');
writeln(line);
writeln(shap);
writeln(line);
while not (eof(ff)) do
      begin
      read(ff,d);
      with d do
           begin
           writeln('|',nom:6,'|':2,pri:21,'|':3,dad:3,'.',dam:2,'.',day:4,'|':2,int:11,'|':2,ont:11,'|':2);
           writeln('|','|':8,'|':24,'|':13,ina:11,'|':2,ona:11,'|':2);
           end;
      end;
writeln(line);
close (ff);
writeln('Данные выведены. Enter для продолжения...');
readln;
end;
 
function Count (ff: file of delo): integer;
var d: delo; y: 1900..2012; k: integer;
begin
k:=0;
clrscr;
write('Укажите год для поиска дел о мошенничестве: '); readln(y);
reset(ff);
while not (eof(ff)) do
      begin
      read(ff,d);
      if d.day=y then inc(k);
       end;
close (ff);
Count:=k;
end;
 
begin
assign(f,'D:\BD.dta');
v:=1;
repeat
writeln('0-завершение работы');
writeln('1-ввод данных');
writeln('2-вывод данных');
writeln('3-поиск дел о мошенничестве по заданному году');
readln(v);
case v of
1: Vvod (f);
2: Vyvod (f);
3: writeln(Count (f),'дел (а)');
end;
until v=0;
end.