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

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;

program laba7;
Uses crt;
Type
rabotniky=record
fam,name,obr:string;
god:integer;
zarplata:real;
end;
Var
st:array[1..10] of rabotniky;
i,n,j:integer;
sum:real;
m:rabotniky;
 
Begin
clrscr;
write('n=');
readln(n);
For i:=1 to n do
begin
write('prizvuche ');
readln(st[i].fam);
write('imia ');
readln(st[i].name);
write('obrazovanie ');
readln(st[i].obr);
write(' god ');
readln(st[i].god);
write('zarplata ');
readln(st[i].zarplata);
end;
for i:=1 to n-1 do
for j:=1 to n-i do
if st[i].name>st[j+1].name then
begin
m:=st[i];
st[i]:=st[j+1];
st[j+1]:=m;
end;
sum:=0;
For i:=1 to n do
begin
with st[i] do begin
If (god>1966) and (god<1996) then
sum:=sum+zarplata;
end;
end;
 
writeln('------------------------------------------------------------------');
writeln('I----Family---I---Name----I-----Obr----I---God---I----Zarpl----I');
writeln('------------------------------------------------------------------');
 
for i:=1 to n do
begin
writeln('--I---', st[i].fam:3,'---I---',st[i].name:3,'----I------',st[i].obr:3,'----I---',st[i].god:3,'---I----',st[i].zarplata,'----I');
end;
writeln('vvivod sum:', sum:2);
End.