Подпрограммы с файлами

{Составить подпрограммы обработки данных с использованием файлов. Подпрограммы 
должны обеспечивать.
1. Ввод положительных чисел из текстового файла в одномерный массив A(n<=10) и 
запись отрицательных чисел в типизированный файл.
2. Запись чисел из массива А в конец типизированного файла.
3. Вывод на экран компонентов типизированного файла. }
const
  n = 10;
 
type
  vector = array [1..n] of integer;
 
var
  f1: text;
  g1: file of integer;
  k1, i: integer;
  a1: vector;
 
procedure writetofile(x: vector; k: integer; var g: file of integer);
var
  i: integer;
begin
  reset(g);
  seek(g, filesize(g));
  for i := 1 to k do
    write(g, x[i]);
  close(g);
end;
 
procedure readfromfile(var f: text; var g: file of integer; var x: vector; var num: integer);
var
  k, i: integer;
begin
  randomize;
  rewrite(f);
  for i := 1 to n do
  begin
    k := -n div 2 + random(n);
    writeln(f, k);
  end;
  close(f);
  reset(f);
  rewrite(g);
  i := 0;
  while not eof(f) do
  begin
    readln(f, k);
    if k > 0 then
    begin
      inc(i);
      x[i] := k;
    end
    else
    if k < 0 then
      write(g, k);
  end;
  num := i;
  close(f);
  close(g);
end;
 
procedure printfile(var g: file of integer);
var
  k: integer;
begin
  reset(g);
  while not eof(g) do
  begin
    read(g, k);
    write(k:4);
  end;
  close(g);
end;
 
begin
  assign(f1, 'data.txt');
  assign(g1, 'data.dat');
  
  readfromfile(f1, g1, a1, k1);
  writeln('Массив положительных чисел из текстового файла: ');
  for i := 1 to k1 do
    write(a1[i]:3);
  writeln;
  writeln('Файл отрицательных чисел: ');
  printfile(g1);
  writeln;
  writetofile(a1, k1, g1);
  writeln('Итоговый файл: ');
  printfile(g1);
end.

type vector=array [1..10] of integer;
     tfile=file of integer;
procedure readfile(var f:text;var x:vector;var g:tfile;var n:integer);
var k:integer;
begin
assign(f,'data.txt');
reset(f);
assign(g,'data.dat');
rewrite(g);
n:=0;
while not seekeof(f) do //чтобы не читал пробелы в конце файла если есть
 begin
  read(f,k);
  if k>0 then
   begin
    inc(n);
    x[n]:=k;
   end
  else if k<0 then write(g, k);
 end;
close(f);
close(g);
writeln('Массив положительных чисел файла data.txt');
for k:=1 to n do
write(x[k]:4);
writeln;
end;
procedure mastofile(a:vector;n:integer;var g:tfile);
var i:integer;
begin
reset(g);
for i:=1 to n do
 begin
  seek(g,filesize(g));
  write(g,a[i]);
 end;
close(g);
end;
procedure printfile(var g:tfile);
var k:integer;
begin
writeln('Содержание типизированного файла data.dat');
reset(g);
while not eof(g) do
 begin
  read(g,k);
  write(k:4);
 end;
close(g);
end;
var
  f1: text;
  g1: tfile;
  a1: vector;
  k1: integer;
begin
readfile(f1,a1,g1,k1);
mastofile(a1,k1,g1);
printfile(g1);
end.