Помогите переделать программу, нужно сделать с процедурами Опции

[MaksIMka-LivE]

Помогите переделать программу, информатичка задала сделать программу нахождения суммы двух матриц, где x и y максимальные элементы главных диагоналей - ну я сделал, но когда пришол показывать оказалось, что надо сделать было с процедурами и гибким вводом. Меня как раз не было на той лекции. Попробывал сам , но времени сейчас в обрез, да и не нашел нигде как делать - началась сессия. Если кто может помогите буду благодарен. И если можно дайте ссылочку на гибкий ввод.

program summax;
uses crt;
var a,b: array[1..10,1..10] of integer;
	i,j,k,l: integer;

	begin
	clrscr;
	randomize;
	for i:=1 to 10 do
	for j:=1 to 10 do
	begin
	a[i,j]:=random(60);
	a[i,j]:=a[i,j]-30;
	b[i,j]:=random(40);
	b[i,j]:=b[i,j]-20;
	end;
	writeln('Матрица А');
	for i:=1 to 10 do
	begin
		for j:=1 to 10 do
			write(a[i,j]:4);
	writeln;
	end;
	writeln('Матрица В');
	for i:=1 to 10 do
	begin
		for j:=1 to 10 do
			write(b[i,j]:4);
	writeln;
	end;
	k:=a[1,1];
	l:=b[1,1];
	for i:=2 to 10 do
	begin
	if a[i,i]>k then k:=a[i,i];
	if b[i,i]>l then l:=b[i,i];
	end;
	writeln('X= ',k:4,' Y= ',l:4);
	writeln('Z=X+Y= ',k+l:5);
	readln;
	end.