Матрица в Delphi

[Гелена]

Дана действительная квадратная матрица порядка N. Разработать программу, которая переставляя целиком строки и столбцы матрицы, расположила наибольший по модулю элемент(любой нескольких), в левом верхнем углу матрицы. Исходные данные и результат представить в виде файлов F и G.

[RUSt88]

пиши на мыло, договоримся

[ОДИНОЧЕСТВО В СЕТИ]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  const n=5;
  var
   a:array [1..n,1..n] of double;
   tmp:double;
   i1,j1,i,j:integer;
begin
  randomize;
  for I := 1 to N  do begin
    for J := 1 to N do begin
      A[I,J]:=random(20)-10+random(100)/100;
          write(a[i,j]:6:2); end;
          writeln;
  end;

  i1:=1;
  j1:=1;
  for i := 1 to n do
  for j := 1 to n do
   if abs(a[i,j])>abs(a[i1,j1]) then begin i1:=i;j1:=j;end;
   writeln('max abs=',a[i1,j1]:6:2);
     for j := 1 to n  do begin
     tmp:=a[1,j];
     a[1,j]:=a[i1,j];
     a[i1,j]:=tmp;
      end;
     for i := 1 to n  do begin
     tmp:=a[i,1];
     a[i,1]:=a[i,j1];
     a[i,j1]:=tmp;
      end;
  for I := 1 to N  do begin
    for J := 1 to N do
          write(a[i,j]:6:2);
          writeln;
  end;
    readln;
end.

Файлы прикрутите сами!

[Гелена]

спасибо большое))можно эту же задачу только в визуальной среде?