[LadySun]

Я очень плохо умею программировать, а работу надо непременно сдать! Я уже кое что сделала, но работа не закончена(точнее выполнена неверно), помогите пожалуйста доделать или переделать программу.

Задание: Даны: n, матрица a(2nx3n). Матрица a естественным образом разбивается на 6 блоков nxm

I II III
IV V VI

Поменять местами III и IV.
Исходные данные прочитать из файла. Результат вывести в новый файл.

Код:

program dinara;
{* 1 *}
var
   n: integer;
   i: integer;
   j: integer;
   a: array[1..1] of array[1..1] of integer;
{* begin *}
begin
    readln(n);

    for i:=1 to 2*n do
        begin
             for j:=1 to 3*n do
                 begin
                      write(1);
                 end;
             writeln('');
        end;

    readln(n);
end.

Admin: Учимся пользоваться тегами!