ДО ТЬ! ПИШЕ Встречен конец файла, а ожидался оператор. ДЕ ПОМИЛКА? const n=3; m=4;
var
i,j,x:integer;
mas:array [1..n, 1..m] of integer;
begin
x:=5;
for i:=1 to n do
for j:=1 to m do;
mas[i,j]:=sqr(x);
x:=x+11;
for i:=1 to n do
begin
for j:=1 to m do
write (mas [i,j],' ');
writeln;
end;

program z1;  

const n=3; m=4;

var i,j,x:integer;

mas:array [1..n, 1..m] of integer;

begin

x:=5;

for i:=1 to n do

for j:=1 to m do

begin

mas[i,j]:=sqr(x);

x:=x+1

end;

for i:=1 to n do

begin

for j:=1 to m do write (mas [i,j]:5);

writeln

end

end.

Объяснение:

Убрали лишнюю ; в строке: for j:=1 to m do;

Добавили составной оператор (begin - end) после этой строки

Изменили строку x:=x+11; на x:=x+1

Изменили форматированный вывод write (mas [i,j],' '); на write (mas [i,j]:5); - так ровнее будет

Добавили в конце end.

Если всё делать в 1 цикле:

program z1;  

const n=3; m=4;

var i,j,x:integer;

mas:array [1..n, 1..m] of integer;

begin

x:=5;

for i:=1 to n do

begin

for j:=1 to m do

begin

mas[i,j]:=sqr(x);

write (mas [i,j]:5);

x:=x+1

end;

writeln

end

end.