Получить названия игрушек, цена которых не превышает 4 руб. и которые подходят детям 5 лет

program Zapis14A;
uses crt;
type igr = record
         n: string;
         s: integer;
         dm,db: integer;
     end;
var f: file of igr;
    b: igr;
    i,n: integer;
 
 
procedure vyvod(str,put: string);
var t: file of igr;
    a: igr;
    j: integer;
begin
     writeln(str);
     assign(t,put);
     reset(t);
     j:=0;
     while not eof(t) do
     begin
          read(t,a);
          j:=j+1;
          writeln('Игрушка №',j,': название - ',a.n:11,'; стоимость - ',a.s:7,' к. ; детям от ',a.dm,' до ',a.db,' лет');
     end;
     readln;
     close(t);
end;
 
begin
     clrscr;
     assign(f,'f.dat');
     rewrite(f);
     write('Введите количество игрушек n=');
     readln(n);
     writeln('Заполнение файла:');
     for i:=1 to n do
     begin
          writeln('Игрушка №',i,':');
          write('  название - ');
          readln(b.n);
          write('  стоимость (в коп.) - ');
          readln(b.s);
          writeln('  возрастные ограничения:');
          write('    от - ');
          readln(b.dm);
          write('    до - ');
          readln(b.db);
          write(f,b);
     end;
     writeln;
     writeln('Заполнение файла завершено!');
     readln;
     close(f);
     clrscr;
     reset(f);
     vyvod('Вывод файла f:','f.dat');
     writeln('Вывод наз-ния игрушек, цена которых не больше 4 руб. и который подходят детям 5 лет:');
     while not eof(f) do
     begin
          read(f,b);
          if (b.s<=400) and (b.dm<=5) and (5<=b.db) then writeln('  ',b.n);
     end;
     readln;
     close(f);
end.

program Zapis14A;
uses crt;
type igr = record
         n: string;
         s: integer;
         dm,db: integer;
     end;
var f:array[1..20]of igr;
    n,i,k: integer;
begin
clrscr;
repeat
write('Введите количество игрушек от 2 до 20 n=');
readln(n);
until n in [2..20];
writeln('Введите данные:');
for i:=1 to n do
 begin
  writeln('Игрушка  №',i,':');
  write('  название - ');
  readln(f[i].n);
  write('  стоимость (в коп.) - ');
  readln(f[i].s);
  writeln('  возрастные ограничения:');
  write('    от - ');
  readln(f[i].dm);
  write('    до - ');
  readln(f[i].db);
 end;
writeln('Заполнение массива завершено! Нажмите Enter');
readln;
clrscr;
writeln('Вывод массива F');
for i:=1 to n do
writeln('Игрушка №',i,': название - ',f[i].n:11,'; стоимость - ',f[i].s:7,' к. ; детям от ',f[i].dm,' до ',f[i].db,' лет');
writeln('Вывод названия игрушек, цена которых не больше 4 руб. и которые подходят детям 5 лет:');
k:=0;
for i:=1 to n do
if (f[i].s<=400) and (f[i].dm<=5) and (f[i].db>=5) then
 begin
  k:=1;
  writeln('  ',f[i].n);
 end;
if k=0 then write('Таких игрушек нет');
readln;
end.

program Zapis14A;
uses crt;
type igr = record
         n: string;
         s: integer;
         dm,db: integer;
     end;
var f:array[1..20]of igr;
    n,i,k: integer;
begin
clrscr;
repeat
write('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® ЁЈаг襪 ®в 2 ¤® 20 n=');
readln(n);
until n in [2..20];
writeln('‚ўҐ¤ЁвҐ ¤ ­­лҐ:');
for i:=1 to n do
 begin
  writeln('€ЈагиЄ   ь',i,':');
  write('  ­ §ў ­ЁҐ - ');
  readln(f[i].n);
  write('  бв®Ё¬®бвм (ў Є®Ї.) - ');
  readln(f[i].s);
  writeln('  ў®§а бв­лҐ ®Ја ­ЁзҐ­Ёп:');
  write('    ®в - ');
  readln(f[i].dm);
  write('    ¤® - ');
  readln(f[i].db);
 end;
writeln('‡ Ї®«­Ґ­ЁҐ ¬ ббЁў  § ўҐа襭®! Ќ ¦¬ЁвҐ Enter');
readln;
clrscr;
writeln('‚лў®¤ ¬ ббЁў  F');
for i:=1 to n do
writeln('€ЈагиЄ  ь',i,': ­ §ў ­ЁҐ - ',f[i].n:11,'; бв®Ё¬®бвм - ',f[i].s:7,' Є. ; ¤Ґвп¬ ®в ',f[i].dm,' ¤® ',f[i].db,' «Ґв');
writeln('‚лў®¤ ­ §ў­Ёп ЁЈаг襪, 業  Є®в®але ­Ґ Ў®«миҐ 4 агЎ. Ё Є®в®алҐ Ї®¤е®¤пв ¤Ґвп¬ 5 «Ґв:');
k:=0;
for i:=1 to n do
if (f[i].s<=400) and (f[i].dm<=5) and (f[i].db>=5) then
 begin
  k:=1;
  writeln('  ',f[i].n);
 end;
if k=0 then write('’ ЄЁе ЁЈаг襪 ­Ґв');
readln;
end.