Pascal/Turbo Pascal - suma y producto de matrices

lo que pasa es que nose como hacer para que la entrada de datos para las dimensiones y los elementos de las matrices deban estar en las mismas lineas .. y el resultado de las matrices de la suma y el producto tambien queden en las mismas lineas .. como puedo hacer esto??

este es el programa

{Programa para Sumar y Multiplicar Matrices de orden nXn}
PROGRAM opera_Mat;
USES Crt;
CONST n=10;
TYPE Mat=ARRAY[1..n,1..n] OF Real;
VAR A,B,C:Mat; Suma,Producto:Boolean;
RA,RB,CA,CB,RX,CX:Integer;
PROCEDURE Encabezado;
VAR contador:integer;
BEGIN
ClrScr;
GOTOXY(23,2);
Writeln('SUMA Y MULTIPLICACION DE MATRICES');
FOR contador:=1 TO 80 DO
write('='); Writeln
END;
PROCEDURE Dim;
BEGIN
Writeln('DIMENSIONES DE LA MATRIZ A'); Writeln;
Write('Numero de renglones ==> '); Readln(RA);
Write('Numero de columnas ==> '); Readln(CA);
Writeln; Writeln;
Writeln('DIMENSIONES DE LA MATRIZ B'); Writeln;
Write('Numero de renglones ==> '); Readln(RB);
Write('Numero de columnas ==> '); Readln(CB);
END;
PROCEDURE CSuma;
BEGIN
IF ((RA <> RB) OR (CA <> CB)) THEN
BEGIN
Writeln;
Writeln('Las Matrices [A] y [B] son Incompatibles para la Suma');
Suma:=false
END
ELSE
Suma:=true
END;
PROCEDURE CProd;
BEGIN
IF CA <> RB THEN
BEGIN
Writeln;
Writeln('Las matrices A y B son Incompatibles para la multiplicacion');
Producto:=false
END
ELSE
Producto:=true
END;
PROCEDURE Lee(NM:char; Var X1:Mat; VarRX,CX:Integer);
VAR
i,j :integer;
begin
Writeln; Writeln('ELEMENTOS DE LA MATRIZ : ',NM); writeln;
for i:=1 to RX DO
for j:=1 to CX DO
Begin
write('Escriba el elemento ',NM,' [',i,',',j,'] = ');
readln(X1[i,j])
end
end;
PROCEDURE Imprime(NM:char; X1:Mat; RX,CX:Integer);
var i,j:integer;
BEGIN
Writeln;
Writeln('MATRIZ',NM);
FOR i:=1 TO RX DO
BEGIN
FOR j:=1 TO CX DO
Write(X1[i,j]:16:1,' '); Writeln;
END;
Writeln;
Write('Oprima una tecla para continuar.....'); readkey;
Writeln
END;
PROCEDURE SumaM;
Var
i,j :integer;
begin
writeln; writeln('la suma de A y B es:');
FOR i :=1 TO RA DO
FOR j :=1 TO CA DO
C[i,j] :=A[i,j] + B[i,j]
end;
BEGIN
encabezado;
Dim;
CSuma;
CProd;
IF Suma or Producto THEN
Begin
Lee('A',A,RA,CA); Lee('B',B,RB,CB);
Imprime('A',A,RA,CA); Imprime('B',B,RA,CB);
IF Suma Then
Begin
SumaM;
Imprime('C',C,RA,CB);
End;
IF Producto THEN
Begin
ProductoM;
Imprime('D',D,RA,CB);
End
End
END.

.... necesito saber komo hacer ke la entrada de datos para las dimenciones y elementos de las matrices A y B que esten en las mismas lineas.. y que las matrices resultantes de C(suma) y D(producto) tambien esten en las mimas lineas ..

gracias =)

tienes que mandarlo a imprimir con gotoxy en la misma fila con dif colunnas debes de ej gotoxy(30.5)que imprima la suma y el producto (30,8)para el producto

Investiga el procedimiento GotoXY().

ya lo intente .. pero no puedo en una parte .. como hacelo??

¿Qué parte?

buenoo .. ahora ya no tengoduda en eso .. ya lo resolvi .. ahora quiero saber .. como llamar los procedimientos ..por que los tengo que poner por insercion .. ya los guarde .. solo . quiero saber .. como llamarlos .. como ponerlos!

gracias

quisiera un programa para multiplicar dos matrices de 3*2 y de 2*3 en pascal