задача на записи, ввод данных в записи из внешнего файла и ее обработка Опции

[reboot]

вообщем очень нужна помощь с такой задачей:
Даны результаты переписи населения, которые хранятся в памяти ЭВМ. Напечатать фамилии, имена и подсчитать общее число жителей, родившихся после 1990 года.
В работе необходимо использовать тип запись для хранения основной информации. Все записи формируются в начале программы и хранятся во внешнем файле. Массивы не использовать!

[amega]

Массивы не использовать!

тоесть все действия происходят с файлом?

вот !
вывод список фамилия имя а потом общее число жителей, родившихся после 1990 года.

uses crt;
Type
      Trec=record
             Fio:string[30];
             name:string[30];
             date:integer;
             end;

       Tfile=file of Trec;

var
   f:Tfile;
   rec:Trec;
   i:integer;
   s:string;
begin
   clrscr;
   assign(f,'file.rec');
   rewrite(f);
   repeat
   Writeln('vvedite danie');
   write('fio - ');readln(rec.fio);
   write('name - ');readln(rec.name);
   write('year ');readln(rec.date);
   write(f,rec);
   Writeln('dl9 okon4aniz vvoda na#mite esc');
   until readkey=#27;
   seek(f,0);
   i:=0;
   clrscr;
   writeln('-------------------------------------------------');
   s:='fio';
   writeln(s:20,'|','name');
   writeln('-------------------------------------------------');
   while not eof(f) do
     begin
      read(f,rec);
      if rec.date>1990 then inc(i);
      Writeln(rec.fio:20,'|',rec.name);
     end;
    writeln('-------------------------------------------------');
     writeln('kol >1990 =',i);
    readln;
end.

[reboot]

да именно что операции с файлом
Амега я тебе обязан+) все работает..правда чуть-чуть пришлось подправить, но все равно большущее тебе спасибо!!!!