viết chương trình nhập vào mảng gồm n phần tử n nhỏ hơn hoặc bằng 100 là các số nguyên dương hãy tìm chữ số và giá trị lớn nhất viết kết quả lên tệp

program Hello;
uses crt;
var n,max,i:integer;
    f:text;
    a:array[1..100] of longint;
begin
    clrscr;
    readln(n);
    for i:= 1 to n do
        begin
            read(a[i]);
            if max < a[i] then max:=a[i];
        end;
    assign(f,'ketqua.out');
    rewrite(f);
    writeln(f,max);
    close(f);
    readln;
    readln;
end.

program bai_giai;
uses crt;
var f:text;
    A:array[1..100] of integer;
    n,i,max:integer;
begin
    clrscr;
    Assign(f,'ketqua.txt');  rewrite(f);
    write('Nhap n (n<=100): '); readln(n);
    for i:=1 to n do
        begin
            write('Nhap so thu ',i,': ');  readln(A[i]);
        end;
    max:=A[1];
    for i:=2 to n do
        if A[i]>max then max:=A[i];
    writeln(f,max);
    for i:=1 to n do
        if A[i]=max then write(i,' ');
    close(f);
end.