Паскаль. Записи

[Cepgeich]

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

Базаданных задается самостоятельно (30 записей)

[Grag]

Как-то все не конкретно... Какая база данных, как кодируется диагноз, просто текстом или есть определенный код заболевания???

[Cepgeich]

Сообщение от Grag

Как-то все не конкретно... Какая база данных, как кодируется диагноз, просто текстом или есть определенный код заболевания???

База данных вводится с клавиатуры, диагноз также.

[Cepgeich]

Сообщение от Cepgeich

База данных вводится с клавиатуры, диагноз также.

Uses crt;

Type BazaDannyx=record
FIO: string[40];
Diagnoz: string[50];
end;
Var pacient:array [1..30] of BazaDannyx;
i:integer;
Begin;
clrscr;
for i:=1 to 30 do
begin
writeln ('bbedite FIO' ,i, '-ogo pacienta');
readln (pacient[i].FIO);
writeln ('bbedite Diagnoz',i,'-ogo pacienta');
readln (pacient[i].Diagnoz);
end;
End.


вот мой код, нужно только поставить проверку на распространенный диагноз.