База данных

[Arei17]

const
  mD=30;
type
  tDiag = record
    Diag: string[50];
    n: integer
  end;
var
  D: array[1..mD]of tDiag;
  m: integer;
m:=0;
p:=1;
x:=1;
for i:=1 to 30 do with pacient[i] do begin
  j:=1;
  while j<=m do if D[j].Diag=Diagnoz then Break else Inc(j);
  with D[j] do if j>m then begin
    m:=j;
    Diag:=Diagnoz;
    n:=1
  end
  else begin
    Inc(n);
    if n>x then begin
      x:=n;
      p:=j
    end
end;
with D[p] do for i:=1 to 30 with pacient[i] do if Diagnoz=Diag then WriteLn(FIO);
 
end.

База данных содержит фамилию пациента и диагноз. Написать программу, определяющую пациентов с наиболее распространенным заболеванием.


Помогите Исправить ошибки