Không biết sau chỗ nào mà chạy không ra đáp án

C:\ Free Pascal IDE File Edit Search Run Compile Debug F[]= |program sohoanhao; uses crt; var i, s, j,m: integer; a: array [1..300] of integer; begin clrscr; write('so luong cac phan tu: '); readln(s); write('cac phan tu: '); for i:=1 to s do read (a[i]); for i:=1 to s do begin for j:= ...