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

program records;
uses crt;
type bol=record
  name: string[45];
   pol:string;
   voz:integer;
   mest:integer;
   diag:string;
 
end;
var igr: array [1..100] of bol;
   I: integer;
label l1,l2,l3;
begin
clrscr;
   for I:=1 to 3 do with igr[I] do
   begin
      writeln ('Фамилия пациента');
      readln (name);
      l1:writeln ('Пол(большой буквой)');
      readln (pol);
      begin
      if pol<>'М' then
      begin
      if pol<>'Ж' then
      begin
      writeln('Такого пола нет!');
      goto l1;
      end;
      end;
      end;
      writeln ('Возраст');
      readln (voz);
      writeln ('Место');
      readln (mest);
      l2:writeln ('Диагноз(с большой буквы)');
      readln (diag);
      begin
      if diag<>'Кашель' then
      begin
      if diag<>'Насморк' then
      begin
      writeln('В базе только 2 типа диагнозов: Кашель и Насморк.');
      goto l2;
      end;
      end;
      end;
      end;
for i:=1 to 3 do with igr[i] do
begin
If diag='Кашель'
then writeln('Пациент: ',name+', назначен лечащий врач: Айболит.')
else
If diag='Насморк'
then writeln('Пациент: ',name+', назначен лечащий врач: Пилюлькин.');
end;
end.

var p:array[1..100] of integer;

repeat(или ваша любимая метка)
readln (mest);
k:=0;
for j:=1 to i do
if p[j]=mest then 
 begin
  k:=1;
  writeln('Место занято, повторите ввод.');
 end;
until k=0;
p[i]:=mest;