Оформить процедурами и функциями

[Litrian]

Вот сделал матрицу, теперь меня обрадовали: ее надо было сделать с помощью процедур и функций. Вот исходник:

uses crt;
const
  str=8;{количество строк}
  sto=8;{количество столбцов}
var
  a:array [1..str,1..sto] of integer;
  i,j,summ:integer;
begin
  clrscr;
  {заполняем и выыводим массив}
  writeln('Исходная матрица:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {присваиваем суммы элементам побочной диагонали}
    for i:=str downto 1 do
    begin
      summ:=0;
      for j:=1 to sto do
        if j<>sto-i+1 then
          inc(summ,a[i,j]);
      for j:=1 to str do
        if j<>i then
          inc(summ,a[j,sto-i+1]);
      a[i,sto-i+1]:=summ;
    end;
  {выводим матрицу}
  writeln('Полученная матрица:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
      write(a[i,j]:2,' ');
    writeln
  end;
end.

Как это сделать ума не приложу. Если знаете подскажите

[ManU]

Структура процедуры имеет следующий вид:

Procedure <имя процедуры>(формальные параметры : их тип);
Var
  (локальные переменные)
begin
  . . .
end;

Процедура вызывается по имени:

<имя процедуры> (фактические параметры);

Например:

Procedure express(a,b,c : real; var x,y:real);
Var
  z : real;
begin
  z:=a+ b+ c;
  x:=sqr(z);
  y:=sqrt(z);
end ;

Эту процедуру можно вызвать следующим образом:

express(7.6, 6.8, 9.5, x1, x2);

Функция
оформляется в следующем виде:

Function <имя функции>(формальные параметры: тип): тип значения функции;
Var
  . . . 
Begin
  . . .
End ;

Вызывается функция по её имени с указанием фактических параметров.

Вызов функции можно делать непосредственно внутри выражения. При вызове функции тип не указывается.

Пример. Пусть требуется найти (x!-y!)*d!.

Напомним, что х! представляет собой произведение n чисел натурального ряда :
х! = 1*2*3*......*х

Function fac(n:integer): integer;
Var
  p,i: integer;
Begin
  p:=1;
  for i:=2 to n do
    p:=p*i;
  fac:=p;
End;

Вызвать можно так:

 f:=(fac(x)-fac(y))*fac(d).

[Litrian]

А когда надо применять функцию, а когда процедуру. И там вроде их большое количество.