Question

ПАСКАЛЬ помогите плз, что нужно исправить, чтобы не было ошибки
НАЧАЛО ПРОГРАММЫ:
uses crt;
const m=3;
n=5;
var A:array [1..m,1..n] of integer;
i,k,j,x:integer;
begin
clrscr
ДАЛЬШЕ НА ФОТО