Ввод слов из текста в массив

[koma00]

Здраствуйте. Нужно перевести текстовый документ с содержимым типа

слово1 слово2
слово3 слово4
слово5 слово6
слово7 слово8

в двухмерный массив. Что бы в нём было например

a[1,1]:=слово1;
a[1,2]:=слово2;
a[2,1]:=слово3

и так дальше. Дайте пожалуста исходный код такой подпрограммы. Заранее спасибо

[WorldMaster]

И в чем у вас проблема???

[koma00]

Вот мой исходный код

program stoluci;

var
   a: array [1..354, 1..2] of char;
   i,j:integer;
   f:text;

procedure vvod;

begin
     assign(f,'input.txt');
     reset(f);
     for i:=1 to 354 do
         for j:=1 to 2 do
             read(f, a [i, j]);
     close(f);
end;

begin
     vvod;
end.

Проблема заключаеться в том что в каждой ячейке массива храниться только одно буква. А мне нужно что бы хранилось слово. Как мне это исправить??

[WorldMaster]

Все потому что у вас массив создан как массив символов(char), а надо строк(string).
в вашем случае должно быть

a: array [1..354, 1..2] of string;

[Serge_Bliznykov]

Сообщение от WorldMaster

Все потому что у вас массив создан как массив символов(char), а надо строк(string).
в вашем случае должно быть

a: array [1..354, 1..2] of string;

в TurboPascal не хватит памяти под данную структуру!

но тогда можно попытаться ограничить длину.
Например, если длина любого слова не больше 50 символов, тогда можно написать так:

var
   a: array [1..354, 1..2] of string[50];

[WorldMaster]

Либо ограничьте размер всего массива.
Как вариант.

[koma00]

При изминении типа массива на string или string[50] у меня вводиться только одна строка из файла. Остальное содержимое файла в массив не попадает

[WorldMaster]

Попробуйте readln()

[koma00]

readln помог спасибо. Но теперь другая проблема в ячейку массива вводиться целая строка (в ней 2 слова), а мне нужно что бы в одну ячейку массива вводилось только одно слово.

[Serge_Bliznykov]

смотрите пример. (я читаю файл построчно и разбираю (parse) строку, считая, что первое слово до первого пробела (все начальные пробелы в начале строки я удаляю), всё, что после после пробела, расположенного за первым словом - считаем вторым словом (даже если там будет НЕСКОЛЬКО СЛОВ!)

это выглядит так:

program stoluci;

Const 
  MaxRow = 354;

var
  a: array [1..MaxRow, 1..2] of string[50];
  CountRowInArray : integer; {количество реально заполненных строчек в матрице}

procedure vvod;
var
   f :text;
   i,j :integer;
   s : string;
begin
  assign(f,'input2.txt');
  reset(f);

  {сначала очистим массив полностью}
  for i:=1 to MaxRow do
      for j:=1 to 2 do a[i,j] := '';

  {прочитаем файл в массив}
  CountRowInArray := 0;
  while not eof(f) do begin
    Readln(f, s);
    {удалим все пробелы в начале строки}
    while ( Length(s)>0 ) and (s[1]=' ') do Delete(s,1,1);

    {если строка не пустая распарсим её}
    if (Length(s)>0) and (Pos(' ',s)>0) then begin
      if CountRowInArray < MaxRow then begin
        inc(CountRowInArray);
        a[CountRowInArray, 1] := Copy(s, 1, Pos(' ',s)-1);
        delete(s, 1, Pos(' ',s)-1 );
        {удалим все пробелы в начале строки}
        while ( Length(s)>0 ) and (s[1]=' ') do Delete(s,1,1);
        {всё, что осталось в строке - считаем вторым словом!
           Внимание! Включая и пробелы внутри и в конце, если они есть там, конечно!}
        a[CountRowInArray, 2] := s;
      end
      else Break;
    end;
  end;
  close(f);
end;

var
  i, j : integer;
begin
  vvod;

  {для отладки просто выведём результат}
  WriteLn('прочитанный файл: ');
  for i:=1 to CountRowInArray do begin
      for j:=1 to 2 do Write(a[i,j],' ');
      WriteLn;
  end;

  Readln;
end.