Записать элементы нечетных строк матрицы в обратном виде - Free Pascal - Ответ 2429013

unit unit1;
interface
const n=5;
type complex=record
             re,im:real;
             end;
     strok=array[1..n]of complex;
     matr=array[1..n] of strok;
procedure Chislo(var f:complex);
procedure Vvod(var a:matr);
procedure Vyvod(a:matr;s:string);
procedure Revers(var a:strok);
implementation
procedure Chislo(var f:complex);
begin
if f.im<0 then write(f.re:6:2,' -',-f.im:0:2,'i  ')
else write(f.re:6:2,' +',f.im:0:2,'i  ');
end;
procedure Vvod(var a:matr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
 begin
  a[i,j].re:=10*random-4;
  a[i,j].im:=10*random-4;
 end;
end;
procedure Vyvod(a:matr;s:string);
var i,j:byte;
begin
writeln(s);
for i:=1 to n do
 begin
  for j:=1 to n do
  Chislo(a[i,j]);
  writeln;
 end;
writeln;
end;
procedure Revers(var a:strok);
var i:byte;
    x:complex;
begin
for i:=1 to n div 2 do
 begin
  x:=a[i];
  a[i]:=a[n-i+1];
  a[n-i+1]:=x;
 end;
end;
end.

uses crt,unit1;
var  a:matr;
     i:byte;
begin
clrscr;
randomize;
Vvod(a);
Vyvod(a,'Исходная матрица:');
for i:=1 to n do
if i mod 2=0 then Revers(a[i]);
Vyvod(a,'Измененная матрица:');
readln
end.