Загрузка из файла (консольный режим Делфи)

[adwaer]

Нужно считать пословно и занести в двухмерный массив.. считаывает, но я потестил и понял что не пословно читает
program EqConsoleHello;
{$APPTYPE CONSOLE}
{$R *.RES}
var
F: TextFile;
text: string;
Var s1 : Array [0..10,0..3] of string;
i,j:integer;
s:string;
begin

AssignFile(F, 'prog.txt');

try
WriteLn('prog Reading');
Reset(F); // îòêðûòèå äëÿ ÷òåíèÿ

for i := 0 to 10 do
begin
for j := 0 to 3 do
begin
Readln(F, s);
s1[i,j]:=s;
writeln(s1[i,j]);
end;
end;
finally
CloseFile(F);
end;
Readln;
end.

[puporev]

В файле-то что записано, строки из слов или слова столбиком?

[Air]

var
F:TextFile;
S,S1:string;
i:integer;

begin
assignfile(F,'1.txt');
try
 Reset(f);
except
 writeln('File "1.txt" not found');
 readln;
 exit;
end;

While not EOF(F) do
 begin
  Readln(F, S);
  S1 := '';
  for i:=1 to length(S) do
   begin
    if S[i] in ['A'..'Z', 'a'..'z','А'..'Я','а'..'я'] then S1 := S1 + S[i]
    else
     begin
      {nextWord}(S1); // здесь слово
      S1 := '';
     end;
   end;
  {nextWord}(S1); // и здесь слово
 end;

...
closeFile(F);

Там где я пометил "здесь слово/ и здесь слово" я рекомендую сделать процедуру. Пример

Procedure nextWord(Str:string);
begin
Arr[i]:=str;
end;

Но можешь и упростить...

[puporev]

По первому вопросу. Вот суть метода и пример на Делфи.


По второму вопросу прикладываю две статьи, но если материал запущен, то этого конечно мало.