Сформировать файл Play.txt, содержащий записи о магнитофонах и вывести все, цена которых меньше М

program aaa;
uses crt;
const n=5;
type mag=record
       mar:string;
       cena:integer;
        end;
var a1:array[1..n] of mag;
f:text; i:integer;
begin clrscr;
assign(f,'Play.txt');
rewrite(f);
for i:=1 to n do
with a1[i] do
begin
writeln('vvedit marku');
readln(mar);
writeln(f,mar);
writeln('vvedit cenu');
readln(cena);
writeln(f,cena);
writeln(f);
end;
close(f);
readln;
end.

program aaa;
uses crt;
const n=5;
type mag=record
       mar:string;
       cena:integer;
        end;
var a1:array[1..n] of mag;
f:text; i,m:integer;
begin clrscr;
assign(f,'play.txt');
reset(f);
while not eof(f) do
begin
readln(f,a1);
end;
writeln('vvedit m');
readln(m);
for i:=1 to n do
with a1[i] do
if cena<m then writeln(mar:15,cena:10,' $');
readln;
end.

  uses crt;
  const n=5;
  type
    mag=record
      mar:string;
      cena:integer;
    end;
  var
    a1:array[1..n] of mag;
    f:text; i,m,c:integer;
  begin
    clrscr;
    assign(f,'play.txt');
    reset(f); c:=1;
    while not eof(f) do begin
      readln(f,a1[c].mar);
      readln(f,a1[c].cena);
      readln(f);
      inc(c);
    end;
    close(f);
    write('vvedit m'); readln(m);
    for i:=1 to c-1 do with a1[i] do
    if cena<m then writeln(mar:15,cena:10,' $');
    readln;
  end.