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

[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.

[Athen]

Спасибо за ответ!
Я кое-что исправила

procedure zap;
var f:text; a:str; p:char;
 begin
  Assign(f,'2.dat');
  Rewrite(f); Reset(f);
  p:=' ';
  writeln('Vvedite dannue');
  read(a.FIO,p,a.tel,p,a.god,p,a.kab,p,a.plt);
  Close(f);
  end;

procedure danzap;
var p:char;t:str; f:text;
 begin
  Assign(f,'2.dat');
  Reset(f);    p:=' ';
  read(f,t.FIO,p,t.tel,p,t.god,p,t.kab,p,t.plt);
  write(t.FIO,p,t.tel,p,t.god,p,t.kab,p,t.plt);
  Close(f);
  end;

Пришлось в read перечислить все записи, иначе выдает ошибку.

Но похоже заполнение программа не принимает, потому что выходят стрелки и нули.

насчет seek... написала так: seek(f,filesize(f)). Но пишет, что файловый тип не правильный.

Переделала чтение файла:

procedure cht;
var f:text; a,b:str; p:char;
 begin
  Assign(f,'2.dat');
  Reset(f);
  p:=' ';
  Repeat
  Read(f,a.FIO,p,a.tel,p,a.god,p,a.kab,p,a.plt);
  write(a.FIO,p,a.tel,p,a.god,p,a.kab,p,a.plt);
  until Eof(f);
  close(f);
  end;

Вроде бы правильно читает