создать файлы для ввода и вывода

[Serikbye]

вот у меня есть готовая программа,нужно все лишь создать файлы для ввода и вывода.помогите))
Дана прямоугольная матрица размером n x n, содержащая вещественные числа. Определить сумму элементов в каждой строке матрицы. Упорядочить номера строк по убыванию значений найденных сумм с помощью алгоритма сортировки обменом. Вывести упорядоченный список номеров строк и соответствующих им сумм

 Program Ice8;
const Max=20;
Type Tmas = array [1..Max,1..Max] of real;
Procedure Vvoda (Var A: Tmas; Var n: integer);
Var i,j :integer;
BEGIN
randomize;
repeat
Write ('Размер матрицы [1..',Max,'] = ');
ReadLn(n);
until n in [1..Max];
for i:=1 to n do
for j:=1 to n do
A[i,j]:=10*random;
end;
Procedure Vyvoda (Var A: Tmas; n: integer);
Var i,j :integer;
Begin
WriteLn ('Исходная матрица');
for i:=1 to n do
 Begin
  for j:=1 to n do
  Write(A[i,j]:6:2);
  WriteLn;
 end;
end;
Procedure  Summa(A: Tmas;n:integer;Var B: Tmas);
Var i,j :integer;
    sum:real;
Begin
for i:=1 to n do
 begin
  Sum:=0;
  for j:=1 to n do
  Sum:=Sum+A[i,j];
  B[1,i]:=i;
  B[2,i]:=Sum;
 End;
WriteLn('Сумма в строках ');
for j:=1 to n do
write(b[1,j]:6:0);
writeln;
for j:=1 to n do
Write (b[2,j]:6:2);
writeln;
writeln;
end;
Procedure Sortirivki(Var B: Tmas;n:integer);
var i,j,k:byte;
    x:real;
begin
for j:=1 to n-1 do
for i:=j+1 to n do
if b[2,j]<b[2,i] then
for k:=1 to n do
 begin
  x:=b[k,j];
  b[k,j]:=b[k,i];
  b[k,i]:=x;
 end;
writeln('Номера строк по убыванию сумм:');
write('Номер:');
for j:=1 to n do
write(b[1,j]:6:0);
writeln;
write('Сумма:');
for j:=1 to n do
write(b[2,j]:6:2);
end;
var a,b:Tmas;
    n:integer;
Begin
randomize;
Vvoda (A,n);
Vyvoda (A,n);
Writeln;
Summa(A,n,B);
Writeln;
Writeln;
Writeln('Результат сортировки');
Sortirivki(B,n);
readln
end.

[SaLoKiN]

Program Ice8;
const Max=20;
Type Tmas = array [1..Max,1..Max] of real;

Procedure Vvoda (Var A: Tmas; Var n: integer);
Var i,j :integer;
f1 : text;
BEGIN
{randomize;}
assign(f1, 'input.txt'); 
Reset(f1);

{repeat
Write ('Размер матрицы [1..',Max,'] = ');
ReadLn(n);
until n in [1..Max];}
ReadLn(f1, n);
Write ('Размер матрицы',n);
for i:=1 to n do
for j:=1 to n do
Read(f1, A[i,j]);{A[i,j]:=10*random;}

close(f1);
end;

Procedure Vyvoda (Var A: Tmas; n: integer);
Var i,j :integer;
f : text;
Begin
assign   (f, 'output.txt'); 
Rewrite(f);
{WriteLn(f2,'Исходная матрица');
WriteLn ('Исходная матрица');}
for i:=1 to n do
 Begin
  for j:=1 to n do
  begin 
  Write(f,A[i,j]:6:2);
  Write(A[i,j]:6:2);
  WriteLn;
   WriteLn(f);
   end
 end;
 close(f);
end;
Procedure  Summa(A: Tmas;n:integer;Var B: Tmas);
Var i,j :integer;
    sum:real;
Begin
for i:=1 to n do
 begin
  Sum:=0;
  for j:=1 to n do
  Sum:=Sum+A[i,j];
  B[1,i]:=i;
  B[2,i]:=Sum;
 End;
WriteLn('Сумма в строках ');
for j:=1 to n do
write(b[1,j]:6:0);
writeln;
for j:=1 to n do
Write (b[2,j]:6:2);
writeln;
writeln;
end;

Procedure Sortirivki(Var B: Tmas;n:integer);
var i,j,k:byte;
    x:real;
begin
for j:=1 to n-1 do
for i:=j+1 to n do
if b[2,j]<b[2,i] then
for k:=1 to n do
 begin
  x:=b[k,j];
  b[k,j]:=b[k,i];
  b[k,i]:=x;
 end;
writeln('Номера строк по убыванию сумм:');
write('Номер:');
for j:=1 to n do
write(b[1,j]:6:0);
writeln;
write('Сумма:');
for j:=1 to n do
write(b[2,j]:6:2);
end;
var a,b:Tmas;
    n:integer;
Begin
randomize;
Vvoda (A,n);
Vyvoda (A,n);
Writeln;
Summa(A,n,B);
Writeln;
Writeln;
Writeln('Результат сортировки');
Sortirivki(B,n);
readln
end.

input.txt

3
1 2 3 
1 2 3
7 8 9