Ai giúp mk xem bài này có lỗi nào sai không ạ? Mk thử cho chạy trên pascal trên điện thoại mà ko đc ạ Program ontapbai11_mang1chieu; uses crt; type M1

Ai giúp mk xem bài này có lỗi nào sai không ạ? Mk thử cho chạy trên pascal trên điện thoại mà ko đc ạ
Program ontapbai11_mang1chieu;
uses crt;
type M1d=array[1..100] of longint;
var A:M1d;
n,i,j,k :byte;
max,s:longint;
demle,demnto:byte;
nto:boolean;
tam:longint;
Begin
clrscr;
{ Nhap mang 1 chieu }
Write( ‘ Nhap so luong phan tu n= ‘);
read(n);
For i:=1 to n do
begin
Write(‘A[‘,i,’]=’);
read(A[i]);
end;
Writeln;

Writeln(‘Mang vua nhap co ‘, n , ‘ phan tu nhu sau:’);
for i:=1 to n do Write(a[i]: 10);
Writeln;

s:=0;
for i:=1 to n do
s:=s+A[i];

Writeln(‘Tong cac phan tu cua mang la = ‘, s);

Writeln(‘Cac phan tu le cua mang la:’);
for i:=1 to n do
if A[i] mod 2 = 1 then
Write(a[i]:10);

writeln;
demle:=0;
for i:=1 to n do
if A[i] mod 2 = 1 then
demle:=demle+1;
Writeln(‘Mang tren co ‘ , demle ,’ phan tu le’);
{xuat ra cac phan tu chi het cho k}
Writeln(‘ Nhap so k= ‘);
read(k);
Writeln(‘ Cac Phan tu chia het cho k=’,k,’ la:’);
for i:=1 to n do
if A[i] mod k =0 then
Write(A[i]:10);

writeln;
max:=A[1];
for i:=1 to n do
if A[i]> max then Max:=A[i];
Writeln (‘ Phan tu lon nhat cua mang la: ‘, max);

j:=1;
for i:=1 to n do
if A[i]> A[j] then j:=i;
Writeln(‘ Phan tu lon nhat la= ‘, A[j] , ‘ vi thu ‘ ,j);

writeln;
Writeln(‘Cac so nguyen to cua mang la:’);
for i:=1 to n do
begin
nto:=true;
for j:=2 to A[i] do
if A[i] mod j = 0 then
nto:=false;
if nto= true then Write(A[i]:10);
end;

writeln;
demnto:=0;
for i:=1 to n do
begin
nto:=true;
for j:=2 to A[i] do
if A[i] mod j = 0 then
nto:=false;
if nto = true then demnto:=demnto+1;
end;
Writeln(‘Mang tren co ‘, demnto , ‘ so nguyen to’);

for j:=n downto 2 do
for i:=1 to j-1 do
if A[i] > A[i+1] then
begin
tam:=A[i];
A[i]:=A[i+1];
A[i+1]:=tam;
end;
Writeln(‘Mang sau khi da sap xep nhu sau:’);
For i:=1 to n do Write(A[i]:10);
end.