подпрограммы (free Packal)

[Jon_Morgan]

Для каждого из массивов: A из 10 эл., В из 20 эл., С из 12 эл, - произвести перестановку элементов, поменяв порядок их следования на обратный.
использовать процедуры или функции.
Проверьте плиз.
Нельзя ли как-нибудь упростить или укоротить?

 
program main;
uses crt;
type mass=array[1..20] of integer;
//__Ввод и вывод массива*__
procedure vvod(var m:mass; n:integer);
var i:integer;
begin
for i:=1 to n do begin
m[i]:=random(50);
write (m[i], ' ');
end;
end;
//__ Изменение последовательности__
procedure P (var m:mass; n:integer);
var i,t:integer;
begin
for i:=0 to n-1 do
begin if i<n-i then
begin
t:=m[n-i];
m[n-i]:=m[i+1];
m[i+1]:=t;
end;
write (m[i+1], ' ');
end;
end;
//__Основная программа*__
var A, B, C:mass;
    i, n:integer;
begin
clrscr; randomize;
writeln ('Введите размер массива А');
readln (n);
vvod(A, n);  writeln;
writeln ('Измененный массив A');
P (A, n);
writeln;
writeln ('Введите размер массива В');
readln (n);
vvod (B, n); writeln;
writeln ('Измененный массив B');
P (B, n);
writeln;
writeln ('Введите размер массива С');
readln  (n);
vvod (C, n);  writeln;
writeln ('Измененный массив C');
P (C, n);
readln;
end.

Не знаю как менять последовательность и что использовать процедуру или функцию

[iborisov]

Наверное, для получения правильного результата нужно сделать так:

for i:=0 to n/2-1 do

[ViktorR]

Возможно так:

//__ Изменение последовательности__
procedure Revers(var m:mass; n:integer);
var i, t : integer;
begin
   for i:=1 to n DIV 2 do
   begin {Без условных операторов}
      t := m[i];
      m[i] := m[n-i+1];
      m[n-i+1] := t;
   end;
end;

В функциях и процедурах вставлять контрольный вывод можно, но думаю, что лучше это сделать отдельной процедурой.
Например так:

procedure Print(const m:mass; n:integer);
var i : integer;
begin
   for i := 1 to n DIV 2 do
      write(mass[i]:5);
   writeln();
end;

Как-то так, ...