Программа на Паскале

[Benka]

Доброго всем дня.

Обращаюсь за помощью. Помогите написать программку на Паскале, пожалуйста. Сестренка учится, а я помочь не могу :-(

Задача: Дана матрица. Требуется поэлементно вычесть строку, в которой находится максимальный элемент этой матрицы и всех остальных строк.

Заранее спасибо, всем откликнувшимся.

[GetMax]

Var
  Mas:Array[1..100,1..100]of Integer;
  Col,Row,i,j,Imax:Byte;
  Maximum:Integer;
begin
  Randomize;
  Write('Input Row,Col: ');
  Readln(Row,Col);
  For i:=1 to Row do
  Begin
    For j:=1 to Col do
    Begin
      Mas[i,j]:=Random(50);
      Write(Mas[i,j]:3)
    End;
    Writeln
  End;
  Maximum:=Low(Integer);
  For i:=1 to Row do
  Begin
    For j:=1 to Col do
    If Mas[i,j] > Maximum then
    Begin
      Maximum:=Mas[i,j];
      Imax:=i
    End;
  End;
  For i:=1 to Row do
  Begin
    For j:=1 to Col do
    If (i <> Imax) then Mas[i,j]:=Mas[i,j]-Mas[Imax,j]
  End;
  Writeln;
  For i:=1 to Row do
  Begin
    For j:=1 to Col do
    Write(Mas[i,j]:3);
    Writeln
  End;
  Readln;
End.

[Benka]

Сообщение от GetMax

<.. код вырезан...>

Спасибо!!! Огромное