Разбить код на функции.

[maxwelln1]

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.

Разбить код на функции. Спасибо БОЛЬШОЕ

[newerow1989]

type
   arr=array[1..15,1..15]of Integer;

procedure Vvod(var a:arr; var n:integer);
var i,j: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;
end;

procedure reverce(a:arr; 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:arr;
    n:Integer;
begin
   Vvod(a,n);
   reverce(a,n);
   Readln;
end.

[Serge_Bliznykov]

newerow1989, ну, может быть и сойдёт, а может быть, и нет, ведь в паскале процедуры и функции описываются по разному...

[newerow1989]

А что результатом функций будет???

[Serge_Bliznykov]

Сообщение от newerow1989

А что результатом функций будет???

хороший вопрос.
во-первых, автор топика зачем-то описал функцию

function reverce(s: string): string;

может быть, ему достаточно, если будет одна функция реверсиющая строку массива или весь массив.

во-вторых, функция может, например, возвращать результат - сам массив:

function GenerateArray(var n:integer):arr;
var i,j:integer;
begin
   Randomize;
   Write('Порядок квадратной матрицы:');
   Readln(n);
   Writeln('Исходная матрица:');
   for i:=1 to n do
   begin
      for j:=1 to n do
      begin
         GenerateArray[i,j]:=Random(100)-50;
         Write(GenerateArray[i,j]:4);
      end;
      Writeln;
   end;
end;

в-третьих, в особо тяжёлых случаях, когда функция явно ничего не должна возвращать (ну, например, процедура ВывестиМассивНаЭкран())
преподаватель упёрся и требует, чтобы процедура была функцией,
но тогда можно пойти на формальное выполнение требований, ну, например, можно сделать процедуру функцией и возвращать true (признак успешного вывод массива на экран )

тут уже всё зависит от того, что требует преподаватель и что знает/умеет делать ученик. В конце концов, это его задача и ему её сдавать.