Описать, используя структуру данных запись, медицинскую карту

program medcard;
USES crt;
TYPE
    medc=record
           Fam:string[20];
           DomAd:string[20];
           tel:string[20];
           Datpr:string[20];
           Fiov:string[20];
           mc:string[20];
           end;
           
VAR
   a:array[1..100] of medc;
   n:byte;
   i:byte;
   x:string[20];
BEGIN
         clrscr;
         Write ('Введите количество записей: ');
         ReadLn (n);
         writeln('====Введите исходные данные===');
         writeln('    Фамилия     |    Адрес  |   Телефон   | Дата приёма   | ФИО врача');
 
         for i:=1 to n do   {формируем список записей}
           with a[i] do  {применяем составной оператор}
           Begin
                   {считываем данные записи}
                   gotoxy(1,i+3);
                   readln(Fam);
                   gotoxy(18,i+3);
                   readln(DomAd);
                   gotoxy(30,i+3);
                   readln(tel);
                   gotoxy(45,i+3);
                   readln(Datpr);
                   gotoxy(60,i+3);
                   readln(Fiov);
           End;
 
         Write('Введите фамилию больного: ');
         readln(x);
         Writeln('Сведенье о больных ',x);
         //выводим заголовок таблицы для вывода искомых данных
         writeln('    Фамилия     |    Адрес  |   Телефон   | Дата приёма   | ФИО врача');
         for i:=1 to n do   {цикл для поиска заданных записей}
           with a[i] do  {применяем составной оператор}
                
                if Fam=x then  writeln(Fam:15,DomAd:13,tel:15,Datpr:10,Fiov:18);
             
END.