Паскаль, вывести строки массива, поочередно, с лево на право, справа на лево

[Amid1990]

Помогите пожалуйста решить задачу.
Нужно ввести в программу количество строк массива, количество столбцов, заполнить его с клавиатуры и вывести на экран, нечётные строки слева на право, а чётные справа на лево.

За решение если хотите заплачу 1 WMZ.

как ввести числа я уже сделал а что дальше хз..

begin
write ('Введите число строк: '); readln (n);
write ('Введите число столбцов: '); readln (m);
writeln ('Введите матрицу по строкам');
for i:=1 to n do
for j:=1 to m do
read (a[i,j]);


end.

[filvika]

var
    a: array[1..50, 1..50] of integer;
    i, j,
    n,  //  количество строк
    m:  //  количество столбцов
    integer;
begin
    write('Введите число строк: ');
    readln(n);
    write('Количество столбцов: ');
    readln(m);
// Ввод матрицы
    writeln('Введите матрицу по строкам:');
        for i := 1 to n do
            for j := 1 to m do
                read (a[i,j]);
    writeln;
// Вывод матрицы
        for i := 1 to n do
        begin
            for j := 1 to m do write(a[i,j], ' ');
          writeln;
        end;
    writeln;
        for i := 1 to n do  //  цикл по строкам
        begin
            if i mod 2 <> 0 then //  нечетная строка
                for j := 1 to m do write (a[i,j], ' ')
            else  //  четная строка
                for j := m downto 1 do write(a[i,j], ' ');
          writeln;
        end;
    readln;
end.

За решение если хотите заплачу 1 WMZ

Не позорились бы..

[Amid1990]

filvika Спасибо за решение.

Не позорились бы..

Я просто думал что это ускорит процесс ))