матрицы, файлы в Паскаль

Program PROG;
Uses Crt;
Const n=5; {Количество строк}
      m=3; {Количество столбцов}
Var A:Array [1..n,1..m] Of Integer;
    B:Array [1..m] Of Integer;
    i,j,sum,min,k:Integer;
Begin
 ClrScr;
 Randomize; min:=1000;
 For i:=1 To n Do
  Begin
   sum:=0;
   For j:=1 To m Do
    Begin
     A[i,j]:=Random(10);
[COLOR=red]     Write(A[i,j]:3);[/COLOR]
     Inc(sum,A[i,j]);
    End;
    If min>sum Then Begin min:=sum; k:=i; End;
[COLOR=red]   WriteLn;[/COLOR]
  End;
[COLOR=red] WriteLn;[/COLOR]
 For i:=1 To m Do B[i ]:=A[1,i];
 For i:=1 To m Do A[1,i]:=A[k,i];
 For i:=1 To m Do A[k,i]:=B[i ];
 For i:=1 To n Do
  Begin
   For j:=1 To m Do Write(A[i,j]:3);
   WriteLn;
  End;
 ReadLn;
End.

Program PROG;
Uses Crt;
Const c=10; Общее количество элементов (+ и -)
Var F,G:File Of Integer;
    i,chislo:Integer;
Begin
 ClrScr;
 Randomize;
 Assign(F,'file.F'); Assign(G,'file.G');
 ReWrite(F); ReWrite(G);
 For i:=1 To Round(c/2) Do
  Begin chislo:=Random(100)+1; Write(F,chislo); End;
 For i:=1 To Round(c/2) Do
  Begin chislo:=-1-Random(99); Write(F,chislo); End;
 Close(F); Reset(F);
 For i:=0 To Round(c/2)-1 Do
  Begin
   Seek(F,i); Read(F,chislo); Write(G,chislo);
   Seek(F,i+Round(c/2)); Read(F,chislo); Write(G,chislo);
  End;
 Close(F); Close(G); Reset(G);
 For i:=0 To FileSize(G)-1 Do
  Begin Read(G,chislo); WriteLn(chislo); End;
 Close(G);
 ReadKey;
End.