работа с процедурами и функциями.

[Tanushka5606]

Нужна помощь в решении задачи.
Задача.
Написать процедуру для ввода и вывода элементов двумерных массивов как целого (Integer), так и вещественного (Real) типа.

[Gigabit]

Немного непонятно, Вам нужно одной процедурой, вводить/выводить и Integer и ReaL..?
Вам Нужно записывать Integer и ReaL в один массив или можно использовать два массива...?
Количество Элементов массива определено или нет?

[__STDC__]

Используй перегрузку функций в FPC =)

const
    n = 5;

type
	int_matrix=array[1..n,1..n] of integer;
	real_matrix=array[1..n,1..n] of real;

procedure out(X:int_matrix);
var
	i,j:integer;
begin
	for i:=1 to n do begin
		for j:=1 to n do
			write(X[i,j]:3,' ');
		writeln;
	end;
end;

procedure out(X:real_matrix);
var
	i,j:integer;
begin
	for i:=1 to n do begin
		for j:=1 to n do
			write(X[i,j]:0:3,' ');
		writeln;
	end;
end;

var
	A:int_matrix;
	B:real_matrix;
begin
	out(A);
	out(B);
	readln;
end.