Как связать функцию и процедуру ?, как связать функцию и процедуру ? Опции

[Alpha7]

Дана процедура чтения матрицы из фаила и её вывода . Далее следует функция нормы матрицы. Что нужно сделать, что бы функция использовала результат процедуры ???

[volvo]

Два варианта:
1. пользоваться глобальными переменными (они изменяются в процедуре, и функция пользуется уже измененным значением)
2. Пользоваться Var-параметрами...

Код

procedure one(var x: integer);
 begin ... end;
function two(a: integer): real;
 begin ... end;

var param: integer;
begin
 one(param); { param изменяется в процедуре }
 writeln(two(param)) { пользуемся уже измененным значением param }
end.