Паскаль. Узнать одинаковые поля записей

program yu;
uses crt;
type patient=record
       medkartka:integer;
       fam:string;
       name:string;
       year:integer;
       vudzaxv:string;
       termin:integer;
       end;
var mm:array[1..10]of patient;
    i,j,n:integer;
    k:string;
    
    procedure swap(var x,y:integer);
   var z:integer;
    begin
    z:= x;
    x:= y;
    y:= z;
    end;
 
   procedure swap_2(var k,m:string);
   var l:string;
    begin
    l:= k;
    k:= m;
    m:= l;
    end;
begin
write('Скільки людей захворіли? - '); readln(n);
for i:=1 to n do
  begin
  writeln('Введіть дані для ',i,' хворого');
  write('Номер мед. карти '); readln (mm[i].medkartka);
  write('Прізвище: '); readln(mm[i].fam);
  write('Імя: '); readln(mm[i].name);
  write('Рік(рррр): '); readln(mm[i].year);
  write('Вид захворювання: '); readln(mm[i].vudzaxv);
  write('Термін захворювання: '); readln(mm[i].termin);
  writeln;
  end;
writeln;
begin writeln('Сортуємо список за роком народжження:');
       for j:=1 to N-1 do
        for i:=1 to N-j do
          if mm[i].year > mm[i+1].year then
              begin
              swap(mm[i].year, mm[i+1].year);
              swap_2(mm[i].name, mm[i+1].name);
              end;
        for i:=1 to n do
        writeln(mm[i].name,': ',mm[i].year,' -й рік');
        writeln;
   end;
   begin writeln('Сортуємо список за однаковими хворобами:');
 
    k:=mm[1].vudzaxv;
         for i:=1 to n do
 begin
        if k = mm[j].vudzaxv then  mm[i].fam:=k;
   end;
   end;
   readln;
end.

For i:=1 to n do
Begin
  b:=false;
  For j:=i+1 to n do
   if mm[i].vudzaxv=mm[j].vudzaxv b:=true;
  if b then //выводим 
End;