помогите написать программу на паскале абс
Файловый тип данных.
задача: Дан целочисленный файл А. Записать в файл В все положительные числа.

Входной файл бы создан дополнительной программой

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016begin var a:=ArrRandom(20,-50,50); a.Println; var f:file of integer; Assign(f,'in.int'); Rewrite(f); foreach var i in a do Write(f,i); Close(f);}end.

Здесь 20 - количество чисел, -50,50 - диапазон

А вот так можно распечатать выходной файл

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016begin var f: file of integer; var i:integer; Assign(f,'out.int'); Reset(f); while not eof(f) do begin Read(f,i); Write(i,' ') end; Close(f)end.

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016begin  var f,fp: file of integer;  var i:integer;  Assign(f,'in.int'); Reset(f);  Assign(fp,'out.int'); Rewrite(fp);  while not eof(f) do begin    Read(f,i);    if i>0 then Write(fp,i)  end;  Close(f); Close(fp)end.Прикрепленный файл in.txt - тестовый in.int, у которого переименовано расширение, поскольку файл с расширением int присоединить сюда не получается.