Разбить код на функции - Free Pascal

Формулировка задачи:

function reverce(s: string): string; 
var a:array[1..15,1..15]of Integer;
i,j,n:Integer;
begin
Randomize;
Write('Порядок квадратной матрицы:');
Readln(n);
Writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(100)-50;
Write(a[i,j]:4);
end;
Writeln;
end;
Writeln('Полученная матрица:');
for i:=1 to n do 
begin
a[i,i]:=a[i,n-i+1];
for j:=1 to n do Write(a[i,j]:4);
Writeln;
end;
Readln;
end.
Нужно разбить код на функции. Спасибо большое

Код к задаче: «Разбить код на функции - Free Pascal»

textual
type mtr=array[1..15,1..15]of Integer;
procedure matrix(var a:mtr;var n:integer);
var i,j:integer;
begin
Write('Порядок квадратной матрицы:');
Readln(n);
Writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=Random(100)-50;
    Write(a[i,j]:4);
   end;
  Writeln;
 end;
end;
procedure preobr(var a:mtr;n:integer);
var i,j:integer;
begin
Writeln('Полученная матрица:');
for i:=1 to n do
 begin
  a[i,i]:=a[i,n-i+1];
  for j:=1 to n do
  Write(a[i,j]:4);
  Writeln;
 end;
end;
var a:mtr;
    n:Integer;
begin
Randomize;
matrix(a,n);
preobr(a,n);
readln
end.

12   голосов, оценка 3.833 из 5


СОХРАНИТЬ ССЫЛКУ