Cho dãy A gồm n phần tử (0<n<250) giá trị mỗi phần tử được nhập từ bàn phím không quá 100 hãy tìm giá trị lớn nhất và chỉ số của nó in kết quả ra màn hình

program bai_giai;
uses crt;
var n,max,i:longint;a:array[1..250]of longint;
begin
 clrscr;
  write('n=');readln(n);
  for i:=1 to n do
        begin
         write('a[',i,']=');readln(a[i]);
         if a[i]>100 then
                begin
                 write('nhap lai a[',i,']=');readln(a[i]);
                end;
        end;
  max:=a[1];
  for i:=2 to n do if(max<a[i])then max:=a[i];
  write('so lon nhat trong day so la:',max);
 readln;
end.

program sksk;
uses crt;
var a: array[1..249] of integer;
    max, i, n, b  : integer;
begin
clrscr;
write(' nhap so phan tu co trong day :'); readln(n);
for i:= 1 to n do
begin
write(' nhap phan tu thu ', i,':'); readln(a[i]);
end;
max := a[1];
for i:= 1 to n do
if a[i] > max then
begin
max := a[i];
b := i;
end;
writeln(' gia tri nho nhat trong mang la : ', max,' chi so :', b );
readln
end.