Паскаль!

[malabar]

Помогите пожалуйста! нужно решить вот такую задачку:
В матрице А (10,10) найти максимальные элементы в строках и минимальные элементы в столбцах. Вывести исходную матрицу, найденные значения и номера строк и столбцов, где они находятся.
Предусмотреть простейший вывод на экран входных и выходных данных.
1)Нарисовать алгоритм, используя диаграмму Насси-Шнейдермана. 2)Написать программу на языке Паскаль.

[Sazary]

uses crt;
const n=10;
var
matr : array[1..n,1..n] of integer;
i,j : integer;
min,max : array[1..n] of integer;
begin
clrscr;
randomize;
for i:=1 to n do
  begin
  for j:=1 to n do
   begin
   matr[i,j] := random(50);
   write(matr[i,j]:4);
   end;
  writeln;
  end;
writeln('-------');
{----}
for i:=1 to n do
  begin
  max[i] := matr[i,1];
  for j:=1 to n do
    if matr[i,j]>max[i] then max[i] := matr[i,j];
  end;
for j:=1 to n do
  begin
  min[j] := matr[1,j];
  for i:=1 to n do
    if matr[i,j]<min[j] then min[j] := matr[i,j];
  end;
{--------}
writeln('Nazhmite enter dlya vyvoda rezultatov');
readln;
{-- vyvod --}
for i:=1 to n do
  writeln('Maximum stroki ',i,' = ',max[i]);
writeln('--');
for j:=1 to n do
  writeln('Minimum stolbca ',j,' = ',min[j]);

readln;
end.

[malabar]

большое спасибо! очень помог.