Создать текстовый файл, в котором записаны марки принтеров и их цены. Переписать в исходный файл те строки, которые имеют цену не выше указаной — Pascal(Паскаль)

Uses
 CRT;
type
 Printer=Record
 mark:string[20];
 Cena:integer;
end;
 
Var
 f:text;
 P:array[1..100] of Printer;
 Num,i,k:integer;
begin
Assign(F,'1.txt');
rewrite(f);
Clrscr;
repeat
 Write('Vvedite kolvo <=',100,': ');
 readln(num);
until num in [1..100];
for i:=1 to Num do
begin
 writeln('Printer  ',i,'-iy: ');
With P[i] do
begin
 write('Marka: ');
 readln(mark);
 writeln(f,mark);
 Write('Cena: ');
 readln(Cena);
 writeln(f,cena);
end;
end;
Close(F);
writeln;
Reset(F);
num:=0;
While not Eof(F) do
Begin
 inc(num);
 readln(f,p[num].mark,p[num].cena);
end;
close(f);
writeln('Vivod: ');
for i:=1 to num do
 With P[i] do
  Writeln('Printer ',i,'-iy: Model: ',mark,'; Cena: ',cena);
rewrite(f);
write('Itog: ');
readln(k);
for i:=1 to num do
With P[i] do
if cena<=k then
begin
 writeln(f,mark);
 writeln(f,cena);
end;
Close(f);
Readkey;
end.