Массив записей: Ввести массив в виде таблицы и упорядочить строки по фамилиям - Turbo Pascal - Ответ 4597999

Program RecLab;
Uses crt;
type rabotniki=record
              fam: string[10];
              imia: string[10];
              god_roj: integer;
              obr: string[10];
              zar: real;
 end;
Var massiv: array [1..10] of rabotniki;
    i,k,j: integer; sz: real;
Begin
clrscr;
for i:=1 to10 do begin
writeln('Введите даные ',і,'-го записа');
with massiv[i] do begin
     writeln('Фамилия');
     readln(fam);
     writeln('Имя');
     readln(imia);
     writeln('Год рождения');
     readln(god_roj);
     writeln('Образование');
     readln(obr);
     writeln('Зарплата');
     readln(zar);
  end;
writeln('--------------------------------------------');
writeln('I Фамилия I Имя I Год I Образование I Зарплата I');
writeln('--------------------------------------------');
for i:=1 to 10 do begin
with massiv[i] do begin
writeln('I', fam:10, 'I', imia:10, 'I', god_roj:5, 'I', obr:10, 'I', zar:10:2, 'I');
end;
end;
writeln('--------------------------------------------');
k:=0;
For i:=1 to 10 do
with massiv[i] do begin
If (god_roj<1996) and (god_roj>1966) then
k:=zar;