Создание двумерного массива из строки..., создание вумерного массива из строки состоящей из последовательности д Опции

[CapFlint]

Зрасти всем!)
Не буду выклаывать всю задачу целиком, тк кое что знаю как делать... а вот что не знаю... Думаю вы мне в этом поможете, надеюсь очень
В текстовом файле содержится последовательность действительных чисел. ...зделать это, зделать то и так далее...
Хочу представить ету последовательность в виде массива (и вывести его на экран), но не простого, а двумерного, дабы в дальнейшем накручивать на него то что требует задача. Как это зделать? Я не понимаю((.
(нашел решенную заачу в инету, похожую). Но там применена сверх логика, не моего уровня(( Ни че не понял кроме того что крюто все там завернуто
Каким образом превратить задуманное в действительлность? буду рад, если хотябы покажите как это будет выглядеть с ономерным массивом.
Спасибо за внимание.

ЗЫ яндех юзал если чо. ни чего более привлекатеьного как задать вопрос тут не нашел

Сообщение отредактировано: CapFlint - 24.09.2007 22:41

[CapFlint]

Ниже приписан код.
всегда ссылается на mxArr^[i] := Number; выдавая вот такую ошибку
[Error] Var_5_Zad_03.dpr(39): Incompatible types: 'Real' and 'PVector'
Старался делать как тут - Работа с динамическими матрицами Подскажите пожалуйста в чем я ошибаюсь!

program mxArr;

{$APPTYPE CONSOLE}
{$R-}
uses
  SysUtils,
  Russian;

type
  TType = Real;
type
  PVector = ^TVector;
  TVector = array[1..1] of TType;
  PDynMatrix = ^TDynMatrix;
  TDynMatrix = array[1..1] of PVector;

var
  TextFile : Text;
  TextName : string;
  mxArr : PDynMatrix;
  Number : Real;         
  i, j, N : byte;         

begin
  Writeln; Write(Rus(' Имя Файла: ')); Readln(TextName); Writeln;
  Write('N = '); Readln(N); Writeln;      // кол-во чисел в послеовательности

  Assign(TextFile, TextName);
  Reset(TextFile);
  GetMem(mxArr, N * SizeOf(PVector));
  
  for i := 1 to N do 
    while not Eof (TextFile) do 
    begin  
      Read(TextFile, Number);
      mxArr^[i] := Number;
      GetMem(mxArr^[i], N * SizeOf(TType));
    end;

  for i := 1 to N do
  begin
    Writeln;
    for j := 1 to N do
      Write(mxArr^[i]^[j]:3);
  end;

  for i := 1 to N do
    FreeMem(mxArr^[i], N * SizeOf(TType));
  FreeMem(mxArr, N * SizeOf(PVector));
  Close(TextFile);  
  Readln;
end.