Что тут не так? uses crt; const n=20; var a: array [1..n] of integer; i: integer; begin clrscr; randomize; for i: =1 to n do a: =random(100); redln(a); writeln('элементы масива: ',a); end.

Надо в цикле писать a[i], а не а
Да и ниже тоже использовать а[i] и цикл

uses
  crt;

const
  N = 20;

var
  a: array [1..N] of integer; i: integer;

begin
  clrscr;
  randomize;
  for i := 1 to N do a[i] := random(100);
  Write('Элементы масива: ');
  for i := 1 to N do Write(a[i]:4);
end.

Во-первых, добавить предпоследнюю строчку readkey;
Во-вторых,(Redln пишется Readln) Readkey в программе лишнее, так как переменная a[i]   определяется случайным образом
В-третьих, переменную а в местах после randomize заменить на a[i]
Далее, оператор цикла надо сделать полным,иначе мы увидим только одно число из 20  Для этого надо добавить после оператора do слово begin и третью строку снизу end;  перед предпоследней добавленной readkey;