Работа с типизироваными файлами: Написать принцип действия банкомата

Type
  Bank = record
  Serial_number: longint;
  Pin:1000 .. 9999;
  Name: string[20];
  Balance: longint;
end;
 
   file_bank = file of bank;
   var
   t: file_bank ;
   name:string;{имя вашего файла}
 
Procedure vvod_Bank (var a: Bank);
    begin
     writeln('Введите серийный номер, пин, имя, баланс денег: ');
     with a do
     begin
     readln(Serial_number);
     readln(Pin);
     readln(Name);
     readln(Balance);
     end;
    end;
    Procedure Vvod_file(var t:file_bank);
    var i,n:byte;
         a: bank;
      begin
        rewrite(t);
          writeln('Введите количество записей');
          readln(n);
        for i:=1 to n do
         begin
              begin
          Vvod_Bank(a);
          write (t, a);
     end;
     readln;
end;
end;
 
Procedure vuvod_zapusu (a:Bank);
begin
     writeln(a.Serial_number: 0);
     writeln(a.Pin: 0);
     writeln(a.Name: 0);
     writeln(a.Balance: 0);
end;
 
procedure VuVod_file (var t: file_bank);
var n, i: byte;
    a: bank;
begin
     clrscr;
     reset (t);
     i:= 0;
     while not eof (t) do
     begin
          seek (t, i);
          read (t, a);
          vuvod_zapusu (a);
          i:= i+1;
     end;
     close (t);
     readln;
end;
 
procedure menu (var t: file_oblast);
var k: byte;
begin
     repeat
     clrscr;
     writeln ('menu');
     writeln ('1: Создание записи');
     writeln ('2: Вывод записи');
     write ('Ваш выбор: ');
     readln (k);
     case k of
     1: vvod_file (t);
     2: vuvod_file (t);
     end;
     until k = 3;
end;
begin
     clrscr;
     writeln ('vvedute Nazvanue: ');
     readln (name);
     assign (t, name);
     menu (t);
end.