Viết chương con trình tìm số lớn nhất của dãy số T gồm s phần tử số nguyên (s nhỏ hơn hoặc bằng 500) giúp mình với ạ

program:Bai_tap_1;

uses crt;
var T:array[1..500] of integer;
    i,n,max:integer;
procedure TT;
begin
   for i:=1 to n do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(T[i]);
   end;
   max:=T[1];
   for i:=2 to n do if T[i]>max then max:=T[i];
   write('Max=',Max);
end;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   TT;
   readln;
end.

uses crt;
var T:array[1..500] of integer;
    i,n,max:integer;
procedure TT;
begin
   for i:=1 to n do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(T[i]);
   end;
   max:=T[1];
   for i:=2 to n do if T[i]>max then max:=T[i];
   write('Max=',Max);
end;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   TT;
   readln;
end.