Нужно переделать масив

Question

дано линейный массив. его нужно переделать в прямоугольный 
program adc; 
uses crt; 
const n=10; 
var a,j:integer; 
A:array[1..i] of real; 
c:real; 
begin clrscr; 
randomize; 
for i:=1 to n do 
begin; 
A:=random(172)/4; 
if (A>12) and (A<27) then 
A:=-A; 
end; 
for i:=1 to n do 
write('A:5:2,' '); 
writeln; 
for i:=1 n-1 do 
begin; 
for j:=i+1 to n do 
begin; 
if A>A[j] then 
begin; 
с: =A; 
A:=A[j]; 
A[j]:=c; 
end; 
end; 
end; 
for i:=1 to n do 
write(A:5:2,' '); 
readln; 
end.

Алена Степина · Accepted Answer

В C++ это можно сделать просто переопределением типа массива: 
#include<iostream> 
using namespace std; 
int main(){int a[2][3],*p=(int*)a; 
for(int i=0;i< 6;i++)p[ i]=i+1; 
for(int i=0;i< 2;i++){for(int j=0;j< 3;j++)cout<< a[ i][ j]<<' '; cout<< endl;}} 
А в Паскале.. . приводи условие полностью.