матрицы (Pascal).

[Sciv]

Вместо вот этого:

for i:= 1 to 24 do
begin
write('input A[',i,']=');
readln(A[i]);
end;

А внутри матрицы все само встанет как надо