Добавить строки, которые позволяют выполнить чтение исходных данных из файла и запись результатов в файл - Turbo Pascal

Формулировка задачи:

добавить в листинг програми

Program;
var x : array [1..10,1..10] of integer;
    y : array [1..10] of integer;
    i,j,k,s,n : integer;
begin
 
 randomize;
 write('n = ');
 readln(n);
 for i := 1 to n do
  for j := 1 to n do
   begin
    x[i,j] := random(10);
   end;
 for i := 1 to n do
  begin
   for j := 1 to n do
    begin
     write(x[i,j]:3);
    end;
   writeln;
 end;
 writeln;
 writeln;
 for i := 1 to n do
   begin
   s := 0;
     for j := 1 to n do
     begin
       s := s + x[i,j]
      end;
   y[i] := s;
   write(y[i]/n:3:2,' ');
 end;
 readln;
end.

строки которые позволяют выполнить чтение исходных данных из файла и осущиствить запись результата работи програмы в файл.

Решение задачи: «Добавить строки, которые позволяют выполнить чтение исходных данных из файла и запись результатов в файл»

textual
                            Листинг программы 
                        

                            Program aa1;
var x : array [1..10,1..10] of integer;
    i,j,n : integer;
    s:real;
    f:text;
begin
assign(f,'input.txt');{файл в папке с программой}
reset(f);
read(f,n);{первое число в файле-размер матрицы}
for i := 1 to n do
 begin
  for j := 1 to n do
   begin
    read(f,x[i,j]);
    write(x[i,j]:3)
   end;
  writeln
 end;
 close(f);
 append(f);{допишем масив в то же файл}
 writeln('Srednee v strokah');
 writeln(f);
 writeln(f,'Srednee v strokah');
 for i := 1 to n do
  begin
   s := 0;
   for j := 1 to n do
   s := s + x[i,j];
   s:=s/n;
   write(s:5:2);
   write(f,s:5:2)
 end;
 close(f);
 readln;
end.
                        