Помогите пожалуйста , компьютер выдаёт ошибку : "ожидалось имя типа" не

1) У Вас везде после begin стоит точка запятой. Она ставится только после оператора end. Также программка обязана содержаться в главный блок begin end, где end кончается точкой, а не точкой с запятой.

2) randomize: должен быть заключён в главной блок begin end.

3) правильная запись randomize не с двоеточием, а с точкой с запятой.

4) В первом цикле программы Вы забыли объявить, чему одинакова переменная i. Правильно было бы:var i := 1 to 5 do

5) В предпоследней строке Вы вообщем намешали всего. Во-первых:для чего там одна двойная кавычка? Во-вторых: для чего там 2-ая скобка после кавычки? Правильно было бы так:Writeln(A[i,j]:3);

Добавлю к 4 пт: Вы инициализируете цикл с какой-то безызвестной переменной i. Вы не объявили её в начале программки. Тут два решения: или объявить сначала, или исправить цикл, добавив перед i ключевое слово var:for var i:=1 to 5 doТакже и со вторым циклом:for var j:=1 to 5 do

6) Вы вызываете функцию readln, а затем присваиваете ей какое-то значение. Функция readln считывает значение и присваивает введённые данные параметру, который Вы передали в функцию readln. У Вас:readln(A[i,j]) значению массива A[i, j] присваивается введённое с клавиатуры значение

Исправленная программка: http://prntscr.com/m9m98f

Программа обязана выглядеть вот так:

program simvol;

const

  n=5;

var

 A:array[1..n,1 ..n]of integer;

 i, j:integer;

Begin;

 for i:=1 to n do

   begin

     for j:=1 to n do

       begin

         (A[i,j]):=random(100);

         write(A[i,j]:4);

       end;

     writeln;

   end;

end.

Вы не объявили переменные i и j, так же допустили сиснтаксические оплошности.