Нужно дописать

[Iharyok]

uses
crt;
const
str=5;
col=5;
var
a:array [1..str,1..col] of integer;
i,j,k,temp:integer;
begin
clrscr;
writeln('Початкова матриця:');
for i:=1 to str do
begin
for j:=1 to col do
begin
a[i,j]:=random(8)-4;
write(a[i,j]:2,' ')
end;
writeln
end;
for i:=1 to str-1 do
for j:=i+1 to str do
if a[i,col]<a[j,col] then
for k:=1 to col do
begin
temp:=a[i,k];
a[i,k]:=a[j,k];
a[j,k]:=temp
end;
writeln('Відсортована матриця:');
for i:=1 to str do
begin
for j:=1 to col do
write(a[i,j]:2,' ');
writeln
end;
end.


есть код, нужно к нему добавить элементы, что бы записывало в текстовый файл...

[whatever]

uses
 crt;
 const
 str=5;
 col=5;
 var
 a:array [1..str,1..col] of integer;
 i,j,k,temp:integer;
 t:textfile;
 begin
 clrscr;
 assign(T,'output.txt');
 rewrite(T);
 writeln(T,'Початкова матриця:');
 for i:=1 to str do
 begin
 for j:=1 to col do
 begin
 a[i,j]:=random(8)-4;
 write(T,a[i,j]:2,' ')
 end;
 writeln(T)
 end;
 for i:=1 to str-1 do
 for j:=i+1 to str do
 if a[i,col]<a[j,col] then
 for k:=1 to col do
 begin
 temp:=a[i,k];
 a[i,k]:=a[j,k];
 a[j,k]:=temp
 end;
 writeln(T,'Відсортована матриця:');
 for i:=1 to str do
 begin
 for j:=1 to col do
 write(T,a[i,j]:2,' ');
 writeln(T);
 end;
 close(T);
 end.