Напишите программу для робота, рисующего узор меандр ( )

Const
  m = 5;
  n = 8;

var
  a: array[1..m, 1..n] of integer;
  i, j, t: integer;

begin
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(101) - 50;
      Write(a[i, j]:4)
    end;
    Writeln
  end;
  for j:=1 to n do begin t:=a[1,j]; a[1,j]:=a[3,j]; a[3,j]:=t end;
  Writeln('Полученный массив');
  for i := 1 to m do
  begin
    for j := 1 to n do Write(a[i,j]:4);
    Writeln
  end
end.

Тестовое решение:
Исходный массив
  45  20 -15  33 -37  26 -30  -3
 -27  43 -24   4 -14  18 -50   5
 -28 -47  11  27  -8  42 -19 -39
  16  43 -18   0 -32  25  11  22
  27 -37 -44 -38 -50   7 -45 -30
Полученный массив
 -28 -47  11  27  -8  42 -19 -39
 -27  43 -24   4 -14  18 -50   5
  45  20 -15  33 -37  26 -30  -3
  16  43 -18   0 -32  25  11  22
  27 -37 -44 -38 -50   7 -45 -30

1. Нажать ctrl+H и в строчке "что" написать )
а в строчне "Заменить на" )_ - _это пробел
или скобка это ", тогда этот символ
2. Грамматические и Орфографические, Пунктуация. Нажмите кнопку Microsoft Office, а затем выберите элемент Параметры Word.
Щелкните пункт Правописание.
Нажмите кнопку Параметры автозамены.
На вкладке Автозамена установите флажок Автоматически исправлять орфографические ошибки.
4. Чтобы быстро убрать все лишние пробелы и табуляторы в началах и концах строк, выделите весь текст, задайте выравнивание по центру – пробелы будут удалены. После этого задайте нужное выравнивание, например по ширине. Выберите меню Правка | Заменить… В поле «Найти» введите пробел (нажмите на пробел). Нажмите кнопку «Больше», чтобы раскрыть диалог. Нажмите кнопку «Специальный» и появившемся меню выберите Знак абзаца. В поле «Найти» добавится текст «^p». В поле «Заменить на» вставьте один знак абзаца «^p». Нажмите кнопку «Заменить всё»

Как-то так наверное,не уверена