FreePascal.ru

если кому надо, то вот решенная

type

tdata = record
surname:shortstring;
year: integer;
city:shortstring;
street:shortstring;
numhouse:integer;
flat:integer;
work:shortstring;
end;

var f:file of tdata;
n,i:integer;
data:tdata;

begin
write('Сколько ...

Привет, народ. Помогите с программой.

Есть задача, ее надо решить с помощью записей: На основе записной книжки, содержащей сведения: фамилия, год рождения, адрес (город; улица; номер дома; квартира), место работы (учебы) напечатать список лиц, работающих (учащихся) в КГТУ.

Я ее решаю так: сначала ...