Tìm và sửa lỗi sai trong chương trình tìm số lớn nhất của dãy số gồm 20 phần tử. Viết chương trình: Nhập vào một mảng các số nguyên bất kì. In ra màn hình mảng vừa nhập

Câu 1: Tìm và sửa lỗi sai trong chương trình tìm số lớn nhất của dãy số gồm 20 phần tử 
Var x:aray[1..10] of real;
       max:integer;
Begin
        For i:=1 to 20 do readln(a[i]);
        Max:=a[1];
        For i:=2; to 20 do
        If max>a[i] then max:=a[i];
        Writeln('max');
End.
Câu 2: Viết chương trình :
a. Nhập vào một mảng các số nguyên bất kì.
b. In ra màn hình mảng vừa nhập
c. In ra màn hình tổng các số dương trong mảng
(Mong mn giúp đỡ giả bài này)