Подпрограмма-функция

[Glum]

Нужно в данную программу запихать подпрограмму-функцию, или процедуру, для вычисления максимального элемента с матриц t и n.
Код:

Program Zav;
const
 R= 1.35;
 m= 101  ;
 ro= 13    ;
 F= 2.2    ;
 k= 0.63    ;
 pi= 3.14;
var
 t,n: array [1..5] of real;
 w: integer;
 i,j: integer;
begin
for i:=1 to 5 do begin
 for w:=30 to 34 do begin
       t[i]:=(w*sqr(R)*M)/(K*F*r);
       n[i]:=(sqr(w)*sqr(R)*M)/( 4*pi*k*F*ro); end;
       writeln('t= ',t[i]:3:2,' ','n=',n[i]:3:2);end;

end.

макс элементы (t и n) должны выводится на экран отдельно, после матриц t,n. Помогите пожалуйста)

[Leshii]

Оно 5 значений выводит или 20 ?)

for i:=1 to 5 do begin
 for w:=30 to 34 do begin
       t[i]:=(w*sqr(R)*M)/(K*F*r);
       n[i]:=(sqr(w)*sqr(R)*M)/( 4*pi*k*F*ro); end;
       writeln('t= ',t[i]:3:2,' ','n=',n[i]:3:2);end;

Program Zav;
const
 R= 1.35;
 m= 101  ;
 ro= 13    ;
 F= 2.2    ;
 k= 0.63    ;
 pi= 3.14;
var
 t,n: array [1..5] of real;
 w: integer;
 i,j: integer;

Procedure max_t_n;
var 
    max, max1: real;
begin
max:=t[1];max1:=n[1];
for i:=2 to 5 do begin
 if t[i]>max then max:=t[i];
 if n[i]>max1 then max1:=n[i];
end;
writeln('Max t[i]= ',max,'     ','Max n[i]= ',max1);
end;

begin
for i:=1 to 5 do begin
 for w:=30 to 34 do begin
       t[i]:=(w*sqr(R)*M)/(K*F*r);
       n[i]:=(sqr(w)*sqr(R)*M)/( 4*pi*k*F*ro); end;
       writeln('t= ',t[i]:3:2,' ','n=',n[i]:3:2);end;
writeln('Max t[i] and n[i] ');
max_t_n;
end.

Оно?

[Glum]

мм..результаты одинаковые ( все Т и все Н одинаковые (

[Glum]

Не получается, где-то ошибка в этом месте

begin
for i:=1 to 5 do begin
 for w:=30 to 34 do begin
       t[i]:=(w*sqr(R)*M)/(K*F*r);
       n[i]:=(sqr(w)*sqr(R)*M)/( 4*pi*k*F*ra);
       writeln('t= ',t[i]:3:2,' ','n=',n[i]:3:2);end; end;

оно выводи 5 значений но все они одинаковые, а если один энд поставить после n[i] тогда результатов 20 и все разные...

[Glum]

поставил энд после

begin
for i:=1 to 5 do begin end;

и почему-то заработало, удивило