Записи: составить списки специалистов по каждой специальности

uses crt;
type z=record
     f:string[20];
     i:string[20];
     o:string[20];
     dat_r:string[8];
     pol:char;
     obraz:string[20];
     special:string[20];
     end;
var  F:file of z;
     sotr:array [1..100] of z;
     j,n:integer;
begin
clrscr;
writeln;
write('Vvedite kol-vo zapisej o spe******tov=');
readln(n);
assign(F,'c:\sotrudniki.txt');
rewrite(f);
writeln('Vvedite svedeniya o spe******tov');
for j:=1 to n do begin
write('Familija:');
readln(sotr[j].f);
write('Name:');
readln(sotr[j].i);
write('Otchestvo:');
readln(sotr[j].o);
write('pol:');
readln(sotr[j].pol);
write('data rojdenia:');
readln(sotr[j].dat_r);
write('O6razovanie:');
readln(sotr[j].obraz);
write('Specialnost:');
readln(sotr[j].special);
write(F,sotr[j]);
writeln('----------------');
end;
Close(F);
end.

uses crt;
type z=record
     f:string[20];
     i:string[20];
     o:string[20];
     dat_r:string[8];
     pol:char;
     obraz:string[20];
     special:string[20];
     end;
var  F:file of z;
     sotr:z;
     j,n:integer;
     s:integer;
begin
clrscr;
assign(F,'c:\sotrudniki.txt');
reset(f);
writeln;
writeln;
writeln('Specialnost: ');
while not Eof(f) do
begin
read(F,sotr);
if sotr.obraz='vishee' then
   writeln(sotr.special);
end;
Close(F);
readln;
end.