zapis i odczyt z pliku txt macierzy z wykorzystaniem procedu

kraj21

Witam. Na wstępie powiem, że o Pascalu wiem bardzo mało, a chodzi mi głównie o to, że posiadam program który dodaje, mnoży, odejmuje itd macierze. Chodzi mi o to, żeby program pobierał dane z pliku, wiec w tym wypadku procedury zadaj i wypisz muszę zamienić na takie, zebym nie musiała podawać danych z klawiatury. Kompletnie nie wiem jak to zrobić mimo że wielokrotnie już próbowałam...Chodzi mi głównie właśnie o ten początek..

program macierze;
uses crt;
const m = 10; n = 10;
var t, de: real;
c, d, x, y, i, j, k, l: integer;
type macierz = array [1..m,1..n] of real;
var A, B, E: macierz;
znak: shortint;

procedure def(var A: macierz);
begin
write('Podaj liczbŠ wierszy w macierzy: c = ');
readln(c);
writeln;
write('Podaj liczbŠ kolumn w macierzy: d = ');
readln(d);
writeln;
end;
procedure zadaj(var A: macierz);
var i, j: integer;
begin
for i := 1 to c do
for j := 1 to d do
begin
write('Wyraz [',i,',',j,'] = ');
readln(A[i,j]);
end;
writeln;
end;
procedure wypisz(var A: macierz);
var i, j: integer;
begin
for i := 1 to c do
begin
for j := 1 to d do
write(A[i,j]:5);
writeln;
end;
end;