Написать программу, которая перевернёт в обратном порядке каждую вторую строку матрицы

procedure s(var a, b : Integer);
var
  c : Integer;
begin
  c := a; a := b; b := c;
end;
 
var
  m : array [0..9,0..14] of Integer;
  r, c : Integer;
begin
  for r := 0 to 9 do
    for c := 0 to 14 do
      begin
        Write('m[', r, ',', c, '] ='); ReadLn(m[r,c]);
      end;
  for r := 0 to 9 do
    if odd(r) then
      for c := 0 to 6 do
        s(m[r,c], m[r,14-c]);
  for r := 0 to 9 do
    begin
      for c := 0 to 14 do
        Write(m[r,c]:5);
      WriteLn;
    end;
end.

procedure s(var a, b : Integer);
var
  c : Integer;
begin
  c := a; a := b; b := c;
end;
 
const
  rows=10; cols=15;
 
var
  m : array [0..rows-1,0..cols-1] of Integer;
  r, c : Integer;
begin
  for r := 0 to rows-1 do
    for c := 0 to cols-1 do
      begin
        Write('m[', r, ',', c, '] ='); ReadLn(m[r,c]);
      end;
  for r := 0 to rows-1 do
    if odd(r) then
      for c := 0 to cols div 2-1 do
        s(m[r,c], m[r,cols-1-c]);
  for r := 0 to rows-1 do
    begin
      for c := 0 to cols-1 do
        Write(m[r,c]:5);
      WriteLn;
    end;
end.