История изменений

Исправление bormant, 08.06.19 00:58 (текущая версия) :

С таким обычно ходят на:
http://www.cyberforum.ru/pascal/

Не исключено, что поиск поможет прямо сразу.

PS. Если специально задачу разбирать на входе "( число ; число )" не ставили, то и решать ее не надо, вводите ваши комплексные числа парами через пробел и не забивайте голову всякой ерундой:

type
  TComplex: array [0..1] of Real;
var
  a: array [0..3] of TComplex;
...
  for i:=Low(a) to High(a) do
    for j:=Low(a[i]) to High(a[i]) do
      Read(a[i,j]);
  ReadLn;

Исходная версия bormant, 08.06.19 00:58:

type
  TComplex: array [0..1] of Real;
var
  a: array [0..3] of TComplex;
...
  for i:=Low(a) to High(a) do
    for j:=Low(a[i]) to High(a[j]) do
      Read(a[i,j]);
  ReadLn;
[/pascal]