Массив температур

program pr_1; (*tem-ra*)
const WG=20;
type tmasi=array [1..WG] of integer;
var t:tmasi;i,kch:byte; max:integer;
(*procedure vvoda*)
procedure pr_vvod_mas ( var kch:byte; var t:tmasi ) ;
var i:byte;
begin
writeln(' vvedi  kol ch '); readln(kch);
for i:=6 to kch do begin
writeln(' vvedi t ',i,' chasa '); readln(t[i]);
end; end;
(*procedure vivoda*)
procedure pr_out_mas( kch:byte; t:tmasi ) ;
begin
writeln(' t: ');
for i:=6 to kch do
write(t[i]:6);
writeln;
end;
(*function max*)
function f_max( kch:byte; mas:tmasi ):integer;
var i:byte; cop:integer;
begin
cop:=t[1];
for i:=2 to 20 do
if mas[i]>cop then cop:=t[i];
f_max:=cop; end;
(*Основная программа*)
begin
pr_vvod_mas(kch,t);
max:=f_max(kch,t);
writeln(' Часы с самой высокой тем-рой: ');
for i:=6 to kch do if t[i]=max then write (i:5);
end.