Перевёрнутые цифры

[BETONOMESHALKA]

Мне надо цыфры чисел в столбиках (цифры только 1 и 0) повернулис на 90 градусов как в столбиках


111 | 101
001 | 001
101 | 111

а комп пи шет ошибку [Error] Unit1.pas(35): Incompatible types

в коде:
var x1,x2,x3,y1,y2,y3,z1,z2,z3:integer;

begin
x1:=strtoint (copy(1,1,1));
x2:=strtoint (copy(1,1,2));
x3:=strtoint (copy(1,1,3));

y1:=strtoint (copy(2,1,1));
y2:=strtoint (copy(2,1,2));
y3:=strtoint (copy(2,1,3));

z1:=strtoint (copy(3,1,1));
z2:=strtoint (copy(3,1,2));
z3:=strtoint (copy(3,1,3));

[BOBAH13]

Вам же написали в предыдущем посте Copy - функция для копирования определнного "куска" строки ! т.е. нельзя так Copy(2... Вот и пише Вам дельфи Инкоплитс Тайп.

[bill]

ВОВАН13 прав,+ я откровенно не понимаю зачем пользоваться функцией copy, когда можно сделать все проще, через цикл при 0 усилий?
Вот код на паскале.

program sd;
uses crt;
const n=3;
var a,b:array[1..n,1..n]of integer;i,z:integer;
begin
for i:=1 to n do
for z:=1 to n do
a[i,z]:=random(2);// заполняешь все случайными значениями
for i:=1 to n do
for z:=1 to n do
b[z,n-i+1]:=a[i,z];// как раз переворачивание на 90 градусов
// далее для наглядности идут циклы вывода массивов на экран.
for i:=1 to n do
begin
writeln;
for z:=1 to n do
write(a[i,z]);
end;
writeln;
for i:=1 to n do
begin
writeln;
for z:=1 to n do
write(b[i,z]);
end;

end.