SoloCodigo

De antemano les doy las gracias por la ayuda que puedan ofrecerme.

Necesito imprimir una matriz de la siguiente manera:

a1    a2
b1    b2

he estado tratando de hacerlo pero me lo imprime de la sig manera:

a1   a2
--------  b1   b2

aqui le muestro los codigos, esta fue la forma que yo pense que podia servir pero me supongo que debe haber una mejor forma puesto que ahora me parece algo ilogico hacer una condicion para cada caso. si conocen alguna pagina donde muestre como hacer esto por favor envienla.

c:=4;
               d:=5;
               for i:=1 to 2 do
                   begin
                        for j:=1 to 2 do
                            begin
                                 suma:=a[i,j] + b[i,j];
                                 gotoxy (c,d); write (suma);
                                 c:=c + 4;
                                 if j = 2 then
                                    begin
                                         d:=d + 1;
                                         c:=c - 4;

                                    end;

                                 if (j = 2) and (i = 2) then
                                    begin
                                         c:= c + 4;
                                    end;

                                 if i = 2 then
                                    begin

                                         c:=c + 4;

                                    end;

                            end;

Gracias

Buen dia a todos. Alguien sabe donde puede conseguir un manual o alguna informacion sobre como usar las Apis en pascal for windows 1.5. Y toda la informacion que tengan sobre esta version puesto que no consigo nada en web.
Por ahora lo que mas me interesa es saber como aplicar colores de forndo,  color al texto y como hacer graficos (lineas, cuadrados,etc), que por lo que entiendo se hace con las apis. Gracias

disculpen era un error que tenia pero sigue sin funcionar.

este es parte de mi codigo pero se queda trancado en el segundo bucle y no se que tengo que hacer para salir de el.

emay:= 0;
eme := 999;

          repeat
                       
                 
                  gotoxy (30,7); write ('Edad: ');
                  readln (ed);
                  if (ed < 0) and (ed > 100) then
                  gotoxy (10,8); write ('ERROR EDAD DEBE SER >= 0 Y <= 100');

          until(ed >= 0) and (ed <= 100);

             repeat
                       If ed > emay then emay := ed;
                       if ed < eme then  eme:=ed;
            {se queda en este bucle y no puedo salir}
             until 1=2;

                       gotoxy (5,18); write ('Edad mayor es: ',emay:2:0);
                        gotoxy (5,19); write ('Edad menor es: ',eme:2:0);

muchas gracias lo voy a intentar y les aviso como me va, por que no tengo mucho tiempo programando y aun no entiendo bien como funsiona un arreglo internamente

necesito alguna orientacion de como indentificar si se introducen una serie ilimitada de numeros cual es el mayor y cual el menor.
Por favor digan si existe algun link sobre este tema

lo que he pensado es esto:

write ('numero'); read (num)
numay:=0;
numen:=100;(por decir algo)

if num > numay then numay:=ed;
if num > numen then numen:=ed;

write ('numero mayor', numay);
write ('numero menor', numen);

entonces si por ej introduzco 23 y 54 me dice que el mayor es 54, pero no guarda a 23 como menor.

Tendria que compar a 23 con 54. pero para ser sincero no tengo muy claro como acerlo. pense hacerlo con un array pero creo que tendria que saber de antemano la cantidad de numeros que se van a introducir.

Les doy gracias de antemano por la ayuda que puedan darme.