Записи, работа с файлами Опции

[Pautina]

Создать структуру записи с полями: фамилия, должность, оклад, стаж работы, разряд. Вывести фамилии граждан, получающих более 1 тыс. руб. при стаже работы менее 10 лет. В заданиях использовать не менее 10 элементов. Задание решить в двух вариантах: данные вводятся с клавиатуры и данные берутся из файла. С первым вариантом проблем не возникло

type
spisok=record
fam:string[20];
dol:string[70];
okl:real;
stag:real;
raz:byte;
end;

var
g:array[1..10] of spisok;
i:byte;

procedure Input_date;
begin
writeln(‘vvedite dannie o’,i, ‘cheloveke’);
write(‘familiya:’);
readln(g[i].fam);
write(‘dolgnost:’);
readln(g[i].dol);
write(‘oklad:’);
readln(g[i].okl);
write(‘stag:’);
readln(g[i].stag);
write(‘razryad:’);
readln(g[i].raz);
writeln;
end;

procedure write_data;
begin
with g[i] do
begin
writeln(‘familiya:’,fam);
writeln(‘oklad:’,okl);
writeln(‘stag:’,stag);
end;
end;

begin
for i:=1 to 10 do
input_date;
writeln;
for i:=1 to 10 do
if (g[i].okl>1000) and (g[i].stag<10) then write_data;
end. 

со вторым вариантом проблема. Понятно, что для открытия файла для чтения, нужно сделать следующее:

reset(f);
readln(f,s);

но не могли бы вы подсказать, что нужно написать, чтобы программа «понимала», что данные имеют тип Запись
СПАСИБО!

[volvo]

что нужно написать, чтобы программа «понимала», что данные имеют тип Запись

Var
  f: file of spisok;
  s: spisok;
...
{ и тогда для чтения можно будет использовать: }
reset(f);
read(f, s);
...

Про ReadLn забудь - это только для текстового файла, но не для типизированного...

[Pautina]

СПАСИБО ОГРОМНОЕ!!!