типизированные файлы Опции

[Athen]

Разработать программу для обработки данных типизированного файла. Обработка данных должна включать процедуры без параметров:
Для вывода шапки таблицы;
Для вывода данных одной записи;
Для создания файла;
Для дополнения файла новыми записями;
Для записи данных в файл;
для записи данных файла;
Для чтения данных файла;
Для модификации ряда записей файла;
Для поиска записей файла с выводом найденных записей или сообщения о неуспешном поиске по поисковому признаку;
Удаления записей из типизированного файла следующим образом: поиск удаляемой записи; сдвиг (в случае успешного поиска) всех записей, расположенных после удаляемой записи, к началу файла; после удаления производится усечение файла.
Структура файла:
Абонентская плата за телефон
Ф.И.О. абонента Телефон Год установки Количество абонентов Плата за телефон

Поисковые признаки: абоненты, имеющие задолженность; год установки до 1980 года.


Начала делать так: ток чет ниче не выходит, кроме шапки таблицы

Program zadacha2;
Uses crt;
procedure tabl;
 begin
  writeln('abonentskaya plata za telefon­');
  writeln(' ----------------------------------------------------------------- ');
  writeln('| FIO           | telefon­  | god         | kolichestvo | plata za  |');
  writeln('| abonenta   |            | ystanovki | abonentov  | telefon ­  |');
  writeln(' ----------------------------------------------------------------- ');
 end;
procedure danzap;
type str=record
     FIO:string[30];
     tel:longint;
     god:integer;
     kab:integer;
     plt:integer;
     end;
const name:string='H:\Program Files\TurboPascal7.1\« Ў  ь4\2.dat';
var p:char;t:str; f:text;
 begin
  Assign(f,name);
  Reset(f);
  readln(f,t.FIO,p,t.tel,t.god,t.kab,t.plt);
  Close(f);
  end;
procedure sozd;
var f:file;
 begin
  Assign(f,'2.dat');
  Rewrite(f);
  Close(f);
  end;
procedure dop;
var f:text; a:string;
 begin
  Assign(f,'3.dat');
  Append(f);
  writeln('dopolnite file');
  read(a);
  Close(f);
  end;
procedure zap;
var f:text; a:string;
 begin
  Assign(f,'2.dat');
  Rewrite(f); Reset(f);
  writeln('Vvedite dannue');
  readln(f,a);
  Close(f);
  end;
procedure cht;
var f:text; a,b:string;
 begin
  Assign(f,'2.dat');
  Reset(f);
  Write(f);
  close(f);
  end;
Var f:text; a:string;
Begin
Clrscr;
tabl;
danzap;
sozd;
dop;
zap;
cht;
readln;
End.