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

Решение

Программа для записи информации в файл

type z=record
     f:string[20];
     adres:string[30];
     tel:string[15];
     obraz:string[20];
     oklad:real;
     end;
var  F:file of z;
     sotr:array [1..3] of z;
     i,n:integer;
begin
writeln;
write('Vvedite kol-vo zapisej o sotrudnikakh=');
readln(n);
assign(F,'c:\sotrudniki');
rewrite(f);
writeln('Vvedite svedeniya o sotrudnikakh');
for i:=1 to n do begin
write('Familija:');
readln(sotr[i].f);
write('Adres:');
readln(sotr[i].adres);
write('Telefon:');
readln(sotr[i].tel);
write('Obrazovanie:');
readln(sotr[i].obraz);
write('Oklad:');
readln(sotr[i].oklad);
write(F,sotr[i]);
writeln('----------------');
end;
Close(F);
end.

Программа для печати списка

type z=record
     f:string[20];
     adres:string[30];
     tel:string[15];
     obraz:string[20];
     oklad:real;
     end;
var  F:file of z;
     sotr:z;
     i:integer;
     s:integer;
begin
assign(F,'c:\sotrudniki');
reset(f);
writeln;
writeln;
writeln('Spisok sotrudnikov s vishim obrazovaniem ');
while not Eof(f) do
begin
read(F,sotr);
if sotr.obraz='vishee' then
   writeln(sotr.f);
end;
Close(F);
readln;
end.