Записи в PASCAL. Помогите, пожалуйста!

[olya177]

Необходимо разработать программу, выполняющую следующие функции:
1. Ввод данных (в массив записей).
2. Печать данных.
3. Обработка данных согласно требованиям:

Структура записи: ФИО, место работы, должность, оклад, адрес человека;
Задача: напечатать сведения о работающих на данном предприятии.

Написала что-то подобное, но так как программа обрабатывала данные, которые в нее вводили, а не данные из заранее заполненных файлов, ее не приняли. Как переделать правильно я не поняла, поэтому надеюсь на вашу помощь.

Полностью задание выглядит так:

Организуйте диалог с пользователем в виде выдачи "меню", например:

1. Ручной ввод данных
2. Чтение данных из файла
3. Корректировка данных
4. Печать данных
5. Обработка данных
6. Печать результатов
7. Запись данных в файл
8. Конец работы

Введите номер операции →

[FPaul]

Сообщение от olya177

Написала что-то подобное, но...

А что уже готово?

[alexcoder]

Показывай что написала

[FPaul]

Показывай что написала

Осторожнее-осторожнее!
А то спугнёшь...

[olya177]

На большее я не способна

uses crt;
label q;
type
    zapis=record
    nomerr: string [30];
    pyot:  string [30];
    pynaz: string [30];
    time: string [30];
    tip: string [20];
    end;
var
   i,c: integer;
   a: array [1..100] of zapis;
   m:char;
   r:string;
begin
i:=1;
q:
writeln('1. Ввести данные.');
writeln('2. Вывести данные.');
writeln('3. Обработать данные.');
writeln('4. Выход из программы.');
readln(m);
case m of
'1':
begin
clrscr;
writeln('Укажите ФИО');
readln(a[i].nomerr);
writeln('Укажите место работы');
readln(a[i].pyot);
writeln('Укажите должность');
readln(a[i].pynaz);
writeln('Укажите оклад');
readln(a[i].time);
writeln('Укажите адрес');
readln(a[i].tip);
i:=i+1;
c:=i;
clrscr;
goto q;
end;
'2':
begin
clrscr;
for i:=1 to c-1 do
begin
writeln('Сотрудник',i);
writeln('ФИО');
writeln(a[i].nomerr);
writeln('место работы');
writeln(a[i].pyot);
writeln('должность');
writeln(a[i].pynaz);
writeln('оклад');
writeln(a[i].time);
writeln('адрес');
writeln(a[i].tip);
writeln;
writeln;
readln;
clrscr;
end;
goto q;
end;
'3':
begin
clrscr;
writeln('Введите название организации');
readln(r);
for i:=1 to c-1 do
begin
if (r = a[i].pyot) then
begin
writeln('Сотрудник',i);
writeln('ФИО');
writeln(a[i].nomerr);
writeln('место работы');
writeln(a[i].pyot);
writeln('должность');
writeln(a[i].pynaz);
writeln('оклад');
writeln(a[i].time);
writeln('адрес');
writeln(a[i].tip);writeln;
readln;
clrscr;
end;
end;
readln;
clrscr;
goto q;
end;
'4':
exit;
end;


end.

[FPaul]

Ну уже молодец.
Я слегка подкорректировал цикл меню, пункт ввода и добавил чтение/запись в файл.
Попробуй доработать дальше...

program test;

uses
  crt;

type
  zapis = record
    nomerr: string [30];
    pyot: string [30];
    pynaz: string [30];
    time: string [30];
    tip: string [20];
  end;
var
  i, c: integer;
  a: array [1..100] of zapis;
  m: char;
  r: string;
  f: Text;
begin
  c := 0;
  repeat
    writeln('1. Ввести данные.');
    writeln('2. Вывести данные.');
    writeln('3. Обработать данные.');
    writeln('4. Выход из программы.');
    writeln('5. Запись в файл.');
    writeln('6. Чтение из файла.');
    readln(m);
    case m of
      '1':
      begin
        clrscr;
        c := c + 1;
        writeln('Укажите ФИО');
        readln(a[c].nomerr);
        writeln('Укажите место работы');
        readln(a[c].pyot);
        writeln('Укажите должность');
        readln(a[c].pynaz);
        writeln('Укажите оклад');
        readln(a[c].time);
        writeln('Укажите адрес');
        readln(a[c].tip);
        clrscr;
      end;
      '2':
      begin
        clrscr;
        for i := 1 to c do
        begin
          writeln('Сотрудник', i);
          writeln('ФИО');
          writeln(a[i].nomerr);
          writeln('место работы');
          writeln(a[i].pyot);
          writeln('должность');
          writeln(a[i].pynaz);
          writeln('оклад');
          writeln(a[i].time);
          writeln('адрес');
          writeln(a[i].tip);
          writeln;
          writeln;
          readln;
          clrscr;
        end;
      end;
      '3':
      begin
        clrscr;
        writeln('Введите название организации');
        readln(r);
        for i := 1 to c do
        begin
          if (r = a[i].pyot) then
          begin
            writeln('Сотрудник', i);
            writeln('ФИО');
            writeln(a[i].nomerr);
            writeln('место работы');
            writeln(a[i].pyot);
            writeln('должность');
            writeln(a[i].pynaz);
            writeln('оклад');
            writeln(a[i].time);
            writeln('адрес');
            writeln(a[i].tip);
            writeln;
            readln;
            clrscr;
          end;
        end;
        readln;
        clrscr;
      end;
      '4':
        exit;
      '5':
      begin
        Assign(f, 'olya177.txt');
        rewrite(f);
        for i := 1 to c do
        begin
          writeln(f, a[i].nomerr);
          writeln(f, a[i].pyot);
          writeln(f, a[i].pynaz);
          writeln(f, a[i].time);
          writeln(f, a[i].tip);
        end;
        Close(f);
      end;
      '6':
      begin
        c := 0;
        Assign(f, 'olya177.txt');
        reset(f);
        while not EOF(f) do
        begin
          c := c + 1;
          readln(f, a[c].nomerr);
          readln(f, a[c].pyot);
          readln(f, a[c].pynaz);
          readln(f, a[c].time);
          readln(f, a[c].tip);
        end;
        Close(f);
      end;
    end;
  until False;
end.

[olya177]

Большое спасибо!