Скиньте CRT.PAS и CRT32.PAS , те у кого это
...
TexTColor (green);
For i:=1 to 10
Do Write (M[i]:2,' ');
...
Выводит строку из 10 эл-ов