Разработать базу данных «Районная поликлиника» (Фамилия, имя, отчество, адрес, рост, вес, давление и т.п.). Получить данные по гипертоникам- Pascal ABC (Паскаль)

Program name;
{	Разработать базу данных "Районная поликлиника"
 (Фамилия, имя, отчество, адрес, рост, вес, давление и т.п.).
  Получить данные по гипертоникам.}
uses
  crt;
Type
  record_type = record
  Surname :string [25];
  name    : string [12];
  Father  : string [25];
  adress  : Record
           street        : string [25];
           number_street : byte;
           number        : byte;
           end;
  high    : integer;
  wight   : integer;
  davlenie: record
          arter : integer;
          venoz  : integer;
        end;
 end;
 
 Var
   record_array : array [1..5] of record_type;
   number_of_array: 1..5;
   
  Procedure input_data;
    begin
      writeln ('введите данные № ',number_of_array,':');
      write ('Ваша фамилия ? ');
      readln (record_array[number_of_array].surname);
      write ('Ваше имя ? ');
      readln (record_array[number_of_array].name);
      write ('Ваше отчество ? ');
      readln (record_array[number_of_array].Father);
      write ('улица ? ');
      readln (record_array[number_of_array].adress.street);
      write ('номер улицы ? ');
      readln (record_array[number_of_array].adress.number_street);
      write ('номер квартиры ? ');
      readln (record_array[number_of_array].adress.number);
      write ('Ваш рост ? ');
      readln (record_array[number_of_array].high);
      write ('Ваш вес ? ');
      readln (record_array[number_of_array].wight);
      write ('Ваше артериальное давление ? ');
      readln (record_array[number_of_array].davlenie.arter);
      write ('Ваше венозное давление ? ');
      readln (record_array[number_of_array].davlenie.venoz);
      writeln;
    end;
  Procedure write_data;
    begin
      with record_array[number_of_array] do
        begin
          write ('Фамилия      : ',surname);
          write ('Имя          : ',name);
          write ('Отчество     : ',Father);
          write ('Улица        : ',adress.street);
          write ('Номер улицы  : ',adress.number_street);
          write ('Квартира     : ',adress.number);
          write ('Рост         : ',high);
          write ('вес          : ',wight);
          write ('Арт.Давление : ',davlenie.arter);
          write ('Вен.Давление : ',davlenie.venoz);
          writeln;
        end;
    end;
  BEGIN
    clrscr;
    for number_of_array :=1 to 5 do
      input_data;
    writeln;
    writeln ('Вывожу данный по гипертоникам');
    For number_of_array :=1 to 5 do
      if record_array [number_of_array].davlenie.arter > 160
       then
        write_data
      else
       Writeln ('гипертоников нет');
  Readkey;
 end.