Задача в interface среде Delphi

[akialex]

Здравствуйте. У меня возникла проблема, с которой за столь короткое время я не успеваю справиться самостоятельно. Суть в том, что в последний момент преподаватель изменил форму выполнения задачи с консольной, на интерфейсную. Он сообщил, что это будет несложно, однако про интерфейсные задачи лекция будет аж через 2 недели, а задачу надо сдать сейчас (просто я быстро задачи решал, вот он решил нагрузить меня). Помогите, плиз.

Задача такова (в Делфи):
Дана действительная матрица размера n на m, в которой не все элементы равны нулю. Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент.

Вот то, что сделал (но это консольная!!):
program 7.6;
uses crt;
var
a:array[1..100,1..100] of integer;
b:array[1..100,1..100] of single;
i:integer;
j:integer;
n:integer;
m:integer;
max:integer;
begin
clrscr;
writeln ('Количество строк');
readln(n);
writeln ('Количество столбцов');
readln(m);
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
writeln ('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j]);
end;
writeln;
end;
max:=abs(a[1,1]);
for i:=1 to n do
for j:=1 to m do
begin
if abs(a[i,j])>max then
max:=abs(a[i,j]);
end;
writeln ('Наибольший по модулю элемент: ',max);
for i:=1 to n do
for j:=1 to m do
begin
b[i,j]:=a[i,j]/max;
end;
writeln(('Конечная матрица:');
for i:=1 to n do
begin
for j:=1 to m do
begin
write(b[i,j]);
end;
writeln;
end;
readln;
end.

[akialex]

Извиняюсь, до меня доперло. Сам решил =)