Двумерные массивы в Delphi

[The riddle]

Товарищи,помогите пожалуйста с задачкой: В квадратной матрице найти транспонированную подматрицу размерности k×h, расположенную в левой левом углу.Помогите с реализацией условия.Заранее бльшое спасибо

[BaronTreep]

Распиши яснее. Вот прочитай что написала, и представь, что ты не знаешь условия.

[The riddle]

Вот самое начало задачи:Задать двумерный массив размерности NXM натуральных случайных чисел из интервала (-10; 10). Оформить ввод и вывод массива с использованием внешних файлов, а решение задачи по ва-рианту в виде набора процедур и функций. Вывести на экран в виде таблицы исходный массив и преобразованный с соответствующими заголовками.
1)Матрицу задала,а вот что дальше делать не пойму никак((

[BaronTreep]

Вот примерно, как в учебнике (чур его!) по Паскалю:

const
  N = 10;
  M = 10;  // Размеры массива

var
  Arr : array[1..N, 1..M] of Integer;   //Сам массив

procedure ReadArray(const FileIn : string);   //Читать из файла
var
  f : TextFile;
  i, k : byte;
begin
  AssignFile(f, FileIn);
  if not FileExists(FileIn) then exit;
  Reset(f);
  for i := 1 to N do begin
    for k := 1 to M do
      Read(f, Arr[i,k]);
    ReadLn(f);
  end;
end;

procedure WriteArray(const FileOut : string);   //Писать в файла
var
  f : TextFile;
  i, k : byte;
begin
  AssignFile(f, FileIn);
  Rewrite(f);
  for i := 1 to N do begin
    for k := 1 to M do
      Write(f, Arr[i,k]);
    WriteLn(f);
  end;
end;

procedure InitArray;    // Замостить "случайными" числами
var
  i, k : byte;
begin
  Randomize;
  for i := 1 to N do
    for k := 1 to M do
      Arr[i,k] = Random(20)-10;
end;

begin
   {Тут можно использовать функции}
end.

[__STDC__]

Что-то не пойму смысл.. если массив читать из файла, зачем его потом заполнять рандомно?
Очевидно, после заполнения необходимо проделать с массивом операции, соответствующие заданию.

 Random(20)-10;

вернет числа в диапазоне [-10;9]

расположенную в левой левом углу

вот это вообще.. сразу все ясно =)

[BaronTreep]

вернет числа в диапазоне [-10;9]

Истино так. Задача наверно такае - сделать 1 2 и 3. Приходится делать студентам...