Задача по PASCAl.Помогите сделать через внешний файл!

[maia]

program V44_N8;
uses crt;
var
A:array[1..5,1..5]of integer;
sum,i,j,k:integer;
begin
clrscr;
randomize;
writeln('Исходный массив: ');
for i:=1 to 5 do begin
for j:=1 to 5 do begin
A[i,j]:=random($FF);
write(A[i,j]:4);
end;
writeln;
end;
writeln;
for k:=1 to 5 do begin
if A[1,k]<0 then begin
for i:=1 to 5 do begin
sum:=0;
for j:=1 to 5 do begin
if j<i then sum:=sum+A[i,j];
end;
A[i,i]:=A[i,i]-sum;
end;
end;
end;
writeln('Результ. матрица: ');
for i:=1 to 5 do begin
writeln;
for j:=1 to 5 do
write(A[i,j]:4);
end;
end.

[Хыиуду]

И в чем состоит задача?

[keywanda]

Наверно задача состоит в том, что бы связать файловую переменную с внешним файлом, который хранится на жёстком диске.. И записать конечную матрицу в текстовый файл. Я так понимаю?

[deni]

пронпиши путь к файлу раз 1
создай этот файл 2
и прокодь))..но эт я не знаю как сделать)))..

[Хыиуду]

Если keywanda правильно определяет суть задачи, то это примерно так

Код: Выделить всё

var f: text;
<дальше вся задача, потом вместо последнего цикла>
assign(f, '123.txt');
rewrite(f);
writeln(f,'Результ. матрица: ');
for i:=1 to 5 do begin
writeln(f,' ');
for j:=1 to 5 do
write(f, A[i,j]:4);
end;
close(f);