Задача по Delphi со строками

[zatirka]

Задача по Delphi со строками

Разработать программу, удаляющую из матрицы строку и столбец, содержащие максимальный/минимальный элементы. Матрица рас-полагается в отдельном файле. Программа должна позволять сформировать исходную матрицу. Результат помещается в отдельный файл. Помогите пожалуйста!!!

 

[Gruvi]

Дана матрица размера MxN. Удалить столбец, содержащий максимальный элемент матрицы.

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
Type Matrix=array of array of integer;
function max(a:Matrix;n,m:integer):integer;
var i,j,ind,m1:integer;
begin
m1:=a[0,0];
ind:=0;
for i:=0 to n-1 do
for j:=0 to m-1 do
if a[i,j]>m1 then begin m1:=a[i,j];ind:=i;end;
max:=ind;
end;
 
var a:Matrix;
i,j,M,N,mel:integer;
begin
writeln('Vvedite razmer A(NxM)');
write('N: ');readln(n);
write('M: ');readln(m);
SetLength(a,n,m);
for i:= 0 to n-1 do
begin
for j:=0 to m-1 do begin
a[i,j]:=random(9);
write(a[i,j],' ');     end;
writeln;
end;
writeln;
mel:=max(a,n,m);
for i:= 0 to n-1 do
for j:=mel to m-2 do
a[i,j]:=a[i,j+1];
SetLength(a,n,m-1);
 
for I := Low(A) to High(A) do
begin
for j := Low(A[i]) to High(A[i]) do
write(a[i,j],' ');
writeln;
end;
readln;
end.

Аналогично со строками.
В файл записывать результат, дело не хитрое...

 

[zatirka]

спасибо огромное

 

[Gruvi]

Не за что.

 

[zatirka]

слушай, ещё вопрос: а можно это как-то на форму разместить, или это только в консоли?

 

[poiu]

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

 

[Gruvi]

Сделано в консоли, на форму разместить можно.