Массив(Паскаль).Только подправить!

[Cas01]

ну давай....жду))))))))))

[Базиля]

Program LAB_9;
Const Z=['A','a','A','a','?','?','E','e','I' ,'i','O','o','U','u','Y','y','?','?','?','y'];
VAR a,b,c:array[1..5,1..5] of char;
i,j,n,p,at,bt,ct,h:integer;
procedure Transp(ji,ij:char;Var jit,ijt:char);
Var f:char;
begin f:=ij; ij:=ji; ji:=f; jit:=ji; ijt:=ij; end;

BEGIN
writeln('Aaaaeoa ?acia? iao?eo a,b,c (nxn) <=5:');
write ('n='); readln(n);
at:=0; bt:=0; ct:=0;
for p:=1 to 3 do
begin
if (p=1)then
begin
writeln('Caiieieoa iannea A');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
end;
if (p=2)then
begin
readln;
writeln('Caiieieoa iannea B');
for i:=1 to n do
for j:=1 to n do
read(b[i,j]);
end;
if (p=3)then
begin
readln;
writeln('Caiieieoa iannea C');
for i:=1 to n do
for j:=1 to n do
read(c[i,j]);
end;
if (p=1)then begin if (a[i,j]in Z) then at:=1;end;
if (p=2)then begin if (b[i,j]in Z) then bt:=1;end;
if (p=3)then begin if (c[i,j]in Z) then ct:=1;end;
end;
{?anou A}
if (at=1)then begin
h:=0;
for i:=1 to n do begin
h:=h+1;
for j:=h to n do
Transp(a[j,i],a[i,j],a[j,i],a[i,j]);end;end;

if (bt=1)then begin
h:=0;
for i:=1 to n do begin
h:=h+1;
for j:=h to n do
Transp(b[j,i],b[i,j],b[j,i],b[i,j]);end;end;

if (ct=1)then begin
h:=0;
for i:=1 to n do begin
h:=h+1;
for j:=h to n do
Transp(c[j,i],c[i,j],c[j,i],c[i,j]);end;end;

for p:=1 to 3 do begin
if (p=1)then write('Iannea A');
if (p=2)then begin writeln; write('Iannea B'); end;
if (p=3)then begin writeln; write('Iannea C'); end;
for i:=1 to n do begin
writeln;
for j:=1 to n do begin
if (p=1)then write (a[i,j]);
if (p=2)then write (b[i,j]);
if (p=3)then write (c[i,j]);end;end;end;

END.

Попрбуй вот так вот После окончания ввода в массив, для начала ввода для другого массива нажми любую клавишу

[Cas01]

а почему в рез-те вот так выводится ответ :
2
32

одного элемента не хватает.

[Cas01]

ты ещё тут???
Помоги плз!!!

[Базиля]

Cas01
Скажи мне как ты вводишь элементы... Напиши какие у тебя исходные данные и каким образом ты их вводишь

[Cas01]

ну я на тебя надеюсь

[Базиля]

Program LAB_9;
Const Z=['A','a','A','a','?','?','E','e','I' ,'i','O','o','U','u','Y','y','?','? ','?','y'];
VAR a,b,c:array[1..5,1..5] of char;
i,j,n,p,at,bt,ct,h:integer;
procedure Transp(ji,ij:char;Var jit,ijt:char);
Var f:char;
begin f:=ij; ij:=ji; ji:=f; jit:=ji; ijt:=ij; end;

BEGIN
writeln('Aaaaeoa ?acia? iao?eo a,b,c (nxn) <=5:');
write ('n='); readln(n);
at:=0; bt:=0; ct:=0;
for p:=1 to 3 do
begin
if (p=1)then
begin
writeln('Caiieieoa iannea A');
for i:=1 to n do
begin
for j:=1 to n do
read(a[i,j]);
end;
end;
if (p=2)then
begin
writeln('Caiieieoa iannea B');
for i:=1 to n do
for j:=1 to n do
read(b[i,j]);
end;
if (p=3)then
begin
writeln('Caiieieoa iannea C');
for i:=1 to n do
for j:=1 to n do
read(c[i,j]);
end;
if (p=1)then begin if (a[i,j]in Z) then at:=1;end;
if (p=2)then begin if (b[i,j]in Z) then bt:=1;end;
if (p=3)then begin if (c[i,j]in Z) then ct:=1;end;
end;
{?anou A}
if (at=1)then begin
h:=0;
for i:=1 to n do begin
h:=h+1;
for j:=h to n do
Transp(a[j,i],a[i,j],a[j,i],a[i,j]);end;end;

if (bt=1)then begin
h:=0;
for i:=1 to n do begin
h:=h+1;
for j:=h to n do
Transp(b[j,i],b[i,j],b[j,i],b[i,j]);end;end;

if (ct=1)then begin
h:=0;
for i:=1 to n do begin
h:=h+1;
for j:=h to n do
Transp(c[j,i],c[i,j],c[j,i],c[i,j]);end;end;

for p:=1 to 3 do begin
if (p=1)then write('Iannea A');
if (p=2)then begin writeln; write('Iannea B'); end;
if (p=3)then begin writeln; write('Iannea C'); end;
for i:=1 to n do begin
writeln;
for j:=1 to n do begin
if (p=1)then write (a[i,j]);
if (p=2)then write (b[i,j]);
if (p=3)then write (c[i,j]);end;end;end;

END.

Что то я только щас заметил что у тебя массив символов! Вводи без пробела! Пробел это тоже символ)

[Cas01]

я ввожу так
вот на экране выводится вот эта строка:
writeln('Aaaaeoa ?acia? iao?eo a,b,c (nxn) <=5:
ввожу n=2
и ввожу элементы массива через пробел,т.е.ввожу один элемент,нажимаю пробел,ввожу другой элемент,нажимаю enter и т.д

[Cas01]

ошибка - значение этого типа не может образовывать множество
курсор становится вот здесь:
А','А ','И',' ------------ между А и И !!!!!!!

[Базиля]

убери пробел перед кавычкой где А
'А','И'