Отредактируйте пожалуйста программу

[МихХха]

Помогите доделать программу а то завтро уже сдавать!!!
Максимальный элемент в заданной группе соседних строк матрицы используя функции
___________________________________ ____________________________.
вот код:

program Project9;

{$APPTYPE CONSOLE}

uses
SysUtils;

type matr=array[1..10,1..10]of integer;
str=array[1..2,1..10] of integer;
var n,m,q,w,t,r,SX:integer;
H:matr;
stri1:str;

function max(one,two:integer;d:matr):integer ;
var max,i,j:integer;
z:array[1..10] of integer;
begin
FOR i := one TO two DO
BEGIN
MAX := d[1,J];
FOR j := 2 TO 10 DO
IF d[I,J] > MAX THEN
MAX := d[I,J];
END;
FOR J := 1 TO 5 DO WRITELN ('Â ',J, ' Naibolshii element ', max:2);
end;
{__________________________________ ___________________________________ _________}
begin
Writeln('Vvedite razmer matricu ');
readln (t,r);
randomize;
For n := 1 to t do
For m := 1 to r do
h[n, m] := random (11);
FOR n := 1 TO t DO
BEGIN
FOR m :=1 TO r DO
WRITE (' ',h[n,m]:2,' ');
WRITELN;
END;
writeln('************************** *********************************** **');
writeln('Vvedite 2 sosednie stroki po poriadku');
readln(q,w);
writeln(max(q,w,h[n,m]);
readln;
end.