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

[ZX Spectrum-128]

Уберите dos, вместо getdate напишите year:=2013;

[марфаз]

кто знает что сделать со второй строчкой чтобы программа работала в Pascal ABC. net

[ZX Spectrum-128]

Какой 2-й строчкой?

[марфаз]

убрала , теперь пишет в 4 строке Program1.pas(4) : Встречено 'n', а ожидалось ';'

[марфаз]

ошибку показывает во второй

[марфаз]

вот что получилось , все равно ошибка
uses
crt;
const
n=2;
type
sluzh=record
fam,im,ot:string[64];
nazv_otd:string[128];
gd:integer;
stazh:integer;
dolzh:string[128];
pol:string[1];
end;
var
spisok:array[1..n] of sluzh;
chel:sluzh;
f:file of sluzh;
i:integer;
razn:integer;
Year,Month,Day,WDay : word;
begin
(* Ввод данных с клавиатуры и запись в файл *)
assign(f,'spisok.dat');
rewrite(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);

clrscr;
year:=2013; (Year,Month,Day,WDay);
(* Чтение из файла и вывод по условию *)
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);
end.

[марфаз]

ставлю ; как запрашивает все равно ошибка

[Poma][a]

year:=2013; (Year,Month,Day,WDay);

Ужас.. Ужас.. Ужас..

[марфаз]

и что означают 64 128 1 это сколько байт занимает?

[марфаз]

Poma][a НУ ТАК ПОКАЖИ КАК БУДЕТ НЕ УЖАС!