Работа с файлом (Delphi)

[Artemelka]

Я новичок в delphi. А мне задали задачу, связанную с файлами. Очень прошу помочь.
Вот сама задача:
Требуется ввести искомое слово, одно из тех которое есть в файле, а затем определить номер строки, в которой это слово встречается и порядковый номер слова в этой строке. Эту информацию вывести на экран.
В исходном текстовом файле написан стишок из 4 строчек на английском.
Вот, что мне удалось сделать:

var f:text;
str:string; 
s:string;
i,j:byte;
row, pos1:integer;
Arr : array of array[0..1] of Integer;
begin
assign(f,'file1.txt');
reset(f);
write('Введите слово для поиска: ');
readln(s); 
while not eof(f) do
begin
readln(f,str);
if pos(S,str)>0 then
writeln(str); 
end;
close(f);
end.

Но здесь просто выводится строка с заданным словом, а мне нужны просто "координаты" этого слова.

[Artemelka]

Удалось определить номер строки, в которой это слово находится, а вот с его порядковым номером в строке все еще проблема
помогите пожалуйста!

var f:text;
str:string; 
s,k:string;
y,n,p,j,i:byte;
begin
assign(f,'file1.txt');
reset(f);
write('Введите слово для поиска: ');
readln(s);
y:=0;
n:=0;
while not eof(f) do
begin
readln(f,str);
if pos(S,str)>0 then break;
inc(y);
end;
close(f);
writeln('nomer stroki: ',y+1);
writeln('Posicia v strike: ', pos(s,str));
end.

[Utkin]

TStringList использовать можно?

а вот с его порядковым номером в строке все еще проблема

Для этого весьма желательно писать отдельную функцию.

[Stilet]

Требуется ввести искомое слово, одно из тех которое есть в файле, а затем определить номер строки, в которой это слово встречается и порядковый номер слова в этой строке.

Раз Делфи, то и привыкай делать по-делфийски:

var q,w:TStrngList;i,j:integer;
begin
 w:=TStringList.Create;q:=TStringList.Create;
 w.LoadFromFile('file1.txt'); 
 for i:=0 to Count-1 do with q do begin
  DelimitedText:=q[i];
  j:=IndexOf(<искомое слово>);
  if j<>-1 then ShowMessage(Format('Слово найдено в строке %d под номером %d',[i,j]));
 end;
 w.free; q.free; 
end;

Это набросок. Изучи его работу а не копипасти. Копипасте не поможет.

[Artemelka]

я, к сожалению, этого еще не проходил
не знаю таких команд
меня вероятно учат близко к паскалю

[Utkin]

А ты борись с системой - учи сам, не опираясь только на то что учат.

[min@y™]

Для начала, всё же, советую определиться, что есть слово.

[Stilet]

не знаю таких команд

Тогда примерно так:

var i,iCol,iRow:integer; s:String;
...
assign(f,'file.txt'); reset(f);
iRow:=1;
while not eof(f) do begin
 readln(f,s);
 iCol:=1; i:=1;
 i:=Pos(' ',s);
 while (Length(s)>0) and (i<>0) do begin
  if copy(s,1,i-1)=<Искомое слово> then 
     writeln('Найдено в ',iRow,' строке ',iCol,' колонке');
  delete(s,1,i); 
  inc(iCol);
  i:=Pos(' ',s);
 end;
end;
close(f);