Дана информация о пяти больных. Запись имеет вид: фамилия, возраст, пол, давление. Вывести данные о больных с повышенным

Type 
wed = record 
n : byte ; 
fio : string[15] ; 
voz : string[3]; 
pol : string; 
dav : byte; 
end; 
Var spisok : wed ; {Запись spicok типа wed} 
sp : file of wed;
procedure vvod; { процедура создания файла} 
var i, j : byte; 
begin 
rewrite ( sp); {открытие файла для записи} 
with spisok do 
For i:=1 to 10 do begin {открываем цикл со счетом до 10} 
n:=i; 
writeln(' Введите фамилию - ',i ); readln(fio); {ввод фамилии} 
writeln(' Введите возраст ' ); readln(voz); 
writeln(' Введите пол ' ); readln(pol); 
writeln(' Введите давление ' ,fio ); readln(dav); 
write(sp, spisok); { запись в файл информации о больном} 
end; 
close (sp); { закрытие файла для записи } 
end; 
procedure print; { процедура чтения и печати всего файла } 
var j : byte; 
begin 
reset ( sp); {открытие файла для чтения} 
writeln (' Список больных: '); 
while not eof (sp) do 
with spisok do 
begin 
Read(sp, spisok); {чтение данных из файла} 
write (n,' ',fio); {вывод записи на экран} 
write(' ',dav);write(' ',voz);write(' ',pol); 
writeln ; 
end; 
readln; 
close (sp) ; 
end; 
procedure work; 
var num: integer; 
begin 
reset ( sp); {открытие файла для чтения} 
read (sp,spisok); 
if spisok.dav>140 then writeln(' ',spisok.fio:3,spisok.pol:3, spisok.dav:3); 
write (sp, spisok); {запись в файл измененной записи} 
close (sp); 
end; 
begin {начало основной программы} 
assign (sp,'Vedom.DAT'); {связать файловую перем-ю sp с файлом Vedom.dat} 
vvod; print; {процедуры создания и чтения файла} 
work; print; {корректировка и чтение измененного файла} 
readln 
end.

Type
  wed = record      {Тип wed включает 3 поля: n, fio, bal}
     n : byte ;
     fio : string[15] ;
     bal : array [1..3] of byte;   {Поле bal - массив из 3 оценок }
  end;
  
Var spisok : wed ;       {Запись spicok  типа  wed}
    sp : file of wed;  {Файл записей типа wed}
    
procedure vvod;     { процедура создания файла}
 var i, j : byte;
 begin
   { оператор assing  находится в основной прграмме }
   rewrite ( sp);            {открытие файла для записи}
   with spisok do
      For i:=1 to 10 do begin
         n:=i;            
         writeln(' Введите фамилию -  ',i ); readln(fio);  
         writeln(' Введите 3 оценки  ' fio );    
         For j:= 1 to 3 do readln(bal[] );
         write(sp, spisok);     { запись в файл информации о студенте}
         end;
      close (sp);      { закрытие файла для записи }
   end;
   
procedure print;  { процедура  чтения   и печати всего файла }
 var j : byte;
 begin
    reset ( sp);        {открытие файла для чтения}
    writeln ('      Список студентов:  '); 
    while not eof (sp) do     
       with spisok do
          begin
             Read(sp, spisok);   {чтение данных из файла}
             write (n,'  ',fio);      {вывод записи на экран}
             For j:=1 to 3 do write(' ',bal[j]);
             writeln ;
       end;
    readln;
   close (sp) ;
   end;
procedure work;
 var num: integer;
 begin
    reset ( sp);        {открытие файла для чтения}
    writeln ('номер= ');    readln (num);
    seek (sp, num-1); {поиск записи с указанным номером (нумерация записей с 0)}
    read (sp,spisok);{чтение и перемещение указателя к след. записи}
    write ('fio='); writeln (spisok.fio);
    seek (sp,filepos(sp)-1); {возвращение к изменяемой записи }
    writeln (' Введите новую фамилию'); readln (spisok.fio);
    write (sp, spisok);  {запись в файл измененной записи}
    close (sp);
  end;
begin      {начало основной программы}
     assign (sp,'Vedom.DAT'); {связать файловую перем-ю  sp с файлом Vedom.dat}
     vvod;      print; {процедуры создания и чтения файла}     
     work;   print;   {корректировка и чтение измененного файла}
     readln
 end.

const
  fName = 'Patients.dat';
  
type
  tPatient = record
    surname  : String[25];
    age      : Byte;    // возраст
    gender   : Boolean; // True — мужчина
    pressure : Byte;    // давление
  end;
  
procedure CreateFile;
begin
  var f : File of tPatient;
  Rewrite(f, fName);
  loop 5 do
    begin
      var p : tPatient;
      'Введите информацию о больном:'.Println;
      p.surname  := ReadLnString ('  Фамилия:');
      p.age      := ReadLnInteger('  Возраст:');
      var s := ReadLnString('Это мужчина? (Yes/No) (Да/Нет) (1/0) :');
      p.gender   := (s.Length > 0) and ('YyДд1'.IndexOf(s[1]) > -1);
      p.pressure := ReadLnInteger(' Давление:');
      Println;
      f.Write(p);
    end;
  f.Close;
end;
 
procedure ReadAllFile;
begin
  'Весь список больных:'.Println;
  var f : File of tPatient;
  Reset(f, fName);
  while Not EOF(f) do
    begin
      var p := f.Read;
      $'фамилия {p.surname},  возраст {p.age:2},  пол {p.gender?''муж.'':''жен.''},  давление {p.pressure}'.Println;
    end;
  Close(f);
  Println;
end;
 
procedure ReadHighPressure;
begin
  'Список больных с повышенным давлением:'.Println;
  var f : File of tPatient;
  Reset(f, fName);
  while Not EOF(f) do
    begin
      var p := f.Read;
      if p.pressure > 130 then
        $'фамилия {p.surname},  возраст {p.age:2},  пол {p.gender?''муж.'':''жен.''},  давление {p.pressure}'.Println;
    end;
  Close(f);
  Println;
end;
 
begin
  CreateFile;
  ReadAllFile;
  ReadHighPressure;
end.