Giúp mình với Đề : Viết chương trình tìm giá trị lớn nhất của 1 dãy số

xác định bài toán:

in: n, dãy  số;

out: giá trị lớn nhất của dãy số;

mô tả thuật toán:

B1: nhập n, dãy số

B2: ;max←a[1]; i←i;

B3: nếu i>n thì xuất max;

B4: nếu(max<a[i])thì max←a[i];

B5: i←i+1;

B6: quay lại B3;

chương trình:

program bai_giai;

uses crt;

var a:array[1..1000]of longint;i,n,max:longint;

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do 

begin

write('a[',i,]=');readln(a[i]);

end;

max:=0;

for i:=2 to n do if(max<a[i])then max:=a[i];

writeln('max:',max);

readln

end.

+Program Max_Min
+Uses crt;
+Var a,b,c,d:integer
 +max,min:integer;
+Begin clrscr;
+write('nhap so thu nhat :')
+readln(a)
 +max:=a
 +min:=a
 +write('nhap so thu hai :')
+readln(b)
+ if maxb then min:=b
+write('nhap so thu ba :')
+readln(c)
+ if maxc then min:=c;
+write('nhap so thu tu :')
+ readln(d)
 +if maxd then min:=d
+ writeln('So lon nhat la :',max)
+ writeln('So nho nhat la :',min)
 +readln
 +End.