Нужна помощь в составлении программы Pascal

Question

Нужно создать программу, которая выводит на экран последовательность пар чисел каждый раз отличительным цветом, выбранным случайным образом. 
например: 
1 4 
1 3 
1 2 
1 1 
 
Я написал так: 
Program R; 
uses Crt ; 
var i,a:integer; 
begin 
randomize; 
textcolor (random(14)+1); 
randomize; 
for i:=1 to 4 do 
writeln(random(1)+1); 
readln (i); 
gotoxy (5,1); 
randomize; 
textcolor (random(14)+1); 
randomize; 
for a:=4 downto 1 do 
writeln(random(3)+1); 
readln (a); 
end. 
 
но в итоге после первого ряда единиц он почему-то ждёт чтобы я ввёл число и потом получается какая-то хрень. хотя должно само всё выводиться. не пойму-что неправильно?

Татьяна Хатькова · Accepted Answer

randomize надо вызывать всего 1 раз в начале программы, а не при каждом удобном случае.

Владимир · Answer

Program R; 
uses Crt; 
const dl = 5; 
var i,a:integer; 
begin 
randomize; 
for i:=1 to dl do begin 
textcolor (random(14)+1); 
gotoxy (1,i); 
writeln(random(2)+1); 
end; 
for a:=dl downto 1 do begin 
textcolor (random(14)+1); 
gotoxy (5,a); 
writeln(random(3)+1); 
end; 
gotoxy (1,dl+1); 
Readln; 
end. 
Обновил. 
Так?