Pascal (Matriz 30x2)

[cacacolass]

Hola, tengo un pequeño problemita.
Este es mi código:

Código [Seleccionar] Expandir

program tp6_4;
uses crt,dos;
type wtf=array [1..30,1..2] of integer;
var matriz:wtf;

procedure fill (var matriz:wtf);
var i:integer;
begin
randomize;
   for i:=1 to 30 do
      begin
           matriz [i,1]:=random(10)-4;
           matriz [i,2]:=random(35)+1;
      end;
end;


procedure show (var matriz:wtf);
var i:integer;
begin
    for i:=1 to 30 do
       begin
            writeln;

                    write ('                 Dia :',(i):5,'         Minima :', matriz [i,1]:5,'         Maxima: ', matriz [i,2]:5);

        end;
end;

procedure calculations (matriz:wtf);
var i,j,minima,maxima,temptotal:integer;
   promedio:real;

begin
minima:=0;
maxima:=0;
temptotal:=matriz[i,1]+matriz[i,2];
promedio:=temptotal/30;

for i:=1 to 30 do
  begin
       if matriz[i,1] < minima then
          minima:=matriz[i,1];
       if matriz[i,2] > maxima then
          maxima:=matriz[i,2];
   end;

writeln;
writeln;
writeln;
writeln ('Temperatura minima del mes: ',minima);
writeln ('Temperatura maxima del mes: ',maxima);
writeln ('Temperatura promedio del mes: ',promedio:8:2);
end;


//begin program
begin
delay(30);
clrscr;
writeln;
writeln (' --------------------------------------------------------------------------------------- ');
writeln ('| MEDICIONES DE TEMPERATURAS MAXIMAS Y MINIMAS CORRESPONDIENTES A LOS 30 DIAS DE UN MES |');
writeln (' --------------------------------------------------------------------------------------- ');
writeln;
fill (matriz);
show (matriz);
calculations (matriz);
readkey;
end.


El problema que tengo, es que al ejecutarlo con Windows, no se ve el programa completo.
Me muestra "i" de 12 para abajo, lo que va haciendo lo borra...
Cómo hago para que eso no pase?
Gracias

P.D: Tengo Win 7 x86
Lo probé con Linux y se ve completo, en windows no.