Aaaaaaaaaaaaaa всё не то
Скиньте плз сам crt, те у кого это
For i:=1 to 10
Do Write (M[i]:2,' ');
Выводит строку из 10 эл-ов