Составить программу создания файла на языке pascal , содержащего сведения для объектов. программа должна обеспечить ввод исходных

[марфаз]

ZX Spectrum-128 окей , спасибо

[марфаз]

ZX Spectrum-128 надо чтобы вообще константы не было

[ZX Spectrum-128]

Это первая программа, только создает файл и заносит в него одну запись. Запустить один раз!

uses
  crt;
type
  sluzh=record
    fam,im,ot:string[64];
    nazv_otd:string[128];
    gd:integer;
    stazh:integer;
    dolzh:string[128];
    pol:string[1];
  end;
var
  chel:sluzh;
  f:file of sluzh;
begin
  (* Ввод данных с клавиатуры и запись в файл *)
  assign(f,'spisok.dat');
  rewrite(f);
    begin
      clrscr;
      writeln('Введите данные по первому работнику.');
      write('Введите фамилию: '); readln(chel.fam);
      write('Введите имя: '); readln(chel.im);
      write('Введите отчество: '); readln(chel.ot);
      write('Введите название отдела: '); readln(chel.nazv_otd);
      write('Введите год рождения: '); readln(chel.gd);
      write('Введите стаж: '); readln(chel.stazh);
      write('Введите должность: '); readln(chel.dolzh);
      write('Введите пол (м - мужской, ж - женский): '); readln(chel.pol);
      write(f,chel); { записали данные в файл}
    end;
  close(f);
  readln;
end.

Это основная программа

uses
  crt;
type
  sluzh=record
    fam,im,ot:string[64];
    nazv_otd:string[128];
    gd:integer;
    stazh:integer;
    dolzh:string[128];
    pol:string[1];
  end;
var
  chel:sluzh;
  f:file of sluzh;
  n,i:integer;
  razn:integer;
  Year : word;
  ch : char;
begin
  assign(f,'spisok.dat');
  while true do
  begin
  clrscr;
  writeln('Укажите требуемые действия: ');
  writeln('1. Ввод данных');
  writeln('2. Вывод данных');
  writeln('3. Вывод данных по условию');
  writeln('4. Окончание работы');
  readln(ch);
  case ch of
  '1':
    begin
      (* Ввод данных с клавиатуры и запись в файл *)
      writeln('Введите количество записей:');
      readln(n);
      reset(f);
      seek(f,filesize(f));
      for i:=1 to n do
        begin
          clrscr;
          writeln('Введите данные по ',i,'-му работнику.');
          write('Введите фамилию: '); readln(chel.fam);
          write('Введите имя: '); readln(chel.im);
          write('Введите отчество: '); readln(chel.ot);
          write('Введите название отдела: '); readln(chel.nazv_otd);
          write('Введите год рождения: '); readln(chel.gd);
          write('Введите стаж: '); readln(chel.stazh);
          write('Введите должность: '); readln(chel.dolzh);
          write('Введите пол (м - мужской, ж - женский): '); readln(chel.pol);
          write(f,chel); { записали данные в файл}
        end;
      close(f);
    end;
  '2':
    begin
      reset(f);
      while not eof(f) do
        begin
          clrscr;
          read(f,chel);
          write('Фамилия: '); writeln(chel.fam);
          write('Имя: '); writeln(chel.im);
          write('Отчество: '); writeln(chel.ot);
          write('Название отдела: '); writeln(chel.nazv_otd);
          write('Год рождения: '); writeln(chel.gd);
          write('Стаж: '); writeln(chel.stazh);
          write('Должность: '); writeln(chel.dolzh);
          write('Пол (м - мужской, ж - женский): '); writeln(chel.pol);
          writeln('Нажмите клавишу enter для продолжения...');
          readln;
        end;
      close(f);
    end;
  '3':
    begin
      clrscr;
      year:=2013;
      (* Чтение из файла и вывод по условию *)
      reset(f);
      while not eof(f) do
        begin
          read(f,chel);
          razn:=year-chel.gd;
          if ((razn>55) and (chel.pol='ж')) or ((razn>60) and (chel.pol='м')) then
            writeln(chel.fam,' ',chel.im,' ',chel.ot,', стаж работы: ',chel.stazh);
        end;
       close(f);
       writeln('Нажмите клавишу enter для продолжения...');
       readln;
    end;
    '4': exit;
  end; {of case}
  end; {of while}
end.

[марфаз]

а ничего что программа такая огромная

[ZX Spectrum-128]

А вы же сами просили:
1 ввод
2 вывод
3 вывод по условию
Просили?
Получите и распишитесь

[марфаз]

неа не работает

[ZX Spectrum-128]

Не работает? Вот сейчас вы лжете.

[марфаз]

первая программа работает правильно просто мне надо после rewrite(f); создать файл а const
n=2; и for i:=1 to n do совсем убрать

[ZX Spectrum-128]

Мляяяя, где вы увидели у меня cOnst?
Неее, пусть с этим чудом кто-нибудь другой общается!

[марфаз]

не лгу вот что получается