Использование подпрограмм

[swillrocker]

Определить, является ли данная целочисленная квадратная матрица ортонормированной, то есть такой, в которой скалярное произведение каждой пары различных строк равно нулю, а скалярное произведение каждой строки на себя равно единице.

(Разбить задачу на подзадачи таким образом, чтобы решение каждой подзадачи описывалось подпрограммой, а основная программа состояла бы из последовательности вызовов подпрограмм. Размеры матриц задать константами.)

Программа уже написана! Нужно выполнить то, что сказано в скобках.

const n=3;
var m:array[1..n,1..n] of integer;
    i,j,k:byte;
    f:boolean;
    s:integer;
begin
writeln('Enter ',n*n,' elements:');
for i:=1 to n do
for j:=1 to n do
read(m[i,j]);
readln;
writeln('Current Matrix:');
for i:=1 to n do
  begin
   for j:=1 to n do
   write(m[i,j]:3);
   writeln;
  end;
writeln;
i:=1;
f:=true;
repeat
j:=1;
repeat
s:=0;
for k:=1 to n do
s:=s+m[i,k]*m[j,k];
if ((i=j) and (s<>1)) or ((i<>j) and (s<>0)) then f:=false;
j:=j+1
until not(f) or (j=n+1);
i:=i+1
until not (f) or (i=n+1);
if f=true then writeln ('Ortonorm')
else writeln ('Not ortonorm');
readln
end.

Помогите пожалуйста...

[swillrocker]

const n=3;
var m:array[1..n,1..n] of integer;
    i,j,k:byte;
    f:boolean;
    s:integer;
    
procedure create(length:byte);
begin
writeln('Enter ',length*length,' elements:');
for i:=1 to length do
for j:=1 to length do
read(m[i,j]);
readln;
end;
 
procedure show(length:byte);
begin
writeln('Current Matrix:');
for i:=1 to length do
  begin
   for j:=1 to length do
   write(m[i,j]:3);
   writeln;
  end;
writeln;
end;
 
procedure ortonorm(length:byte; var f:boolean);
begin
i:=1;
f:=true;
repeat
j:=1;
repeat
s:=0;
for k:=1 to length do
s:=s+m[i,k]*m[j,k];
if ((i=j) and (s<>1)) or ((i<>j) and (s<>0)) then f:=false;
j:=j+1
until not(f) or (j=length+1);
i:=i+1
until not (f) or (i=length+1);
if f=true then writeln ('Ortonorm')
else writeln ('Not ortonorm');
end;
 
begin
create(n);
show(n);
ortonorm(n,f);
readln
end.