Отпечатать первое слово третьей строки файла, если оно существует

[D.o.c]

Созданный текстовый файл объявлен в программе как символьный (file of char). Слова в строках файла разделяются пробелами. Отпечатать первое слово третьей строки файла, если оно существует.Признаком конца строки являются два последовательных символа #13 и #10, признаком конца файла - символ #26.

[p51x]

проблема в чем?

[D.o.c]

проблема с этим условием :"Отпечатать первое слово третьей строки файла, если оно существует.Признаком конца строки являются два последовательных символа #13 и #10, признаком конца файла - символ #26.". Как его реализовать с помощью строк?

[Serge_Bliznykov]

ну, вот Вам, для затравки, пример чтения такого файла (построчно.)

type
  CharFile = file of char;

function ReadLine(var ff : CharFile; var EndOfFile : boolean) : string;
var sResult : string;
  ch : char;
begin
  sResult := '';
  ch := ' ';
  while (ch<>#13) and (ch<>#26) and Not eof(ff) do begin
    Read(ff, ch);
    if ch>=' ' then sResult := sResult + ch;
  end;
  if ch=#13 then Read(ff,ch);
  EndOfFile := Eof(ff) or (ch=#26);
  ReadLine := sResult;
end;

var f : CharFile;
  s : string;
  EndOfFile : boolean;
  i : integer;
begin
  Assign(f, 'test1.txt');
  Reset(f);
  EndOfFile := Eof(f);
  i := 0;
  while (i<3) and Not EndOfFile do 
  begin
    inc(i);
    s := ReadLine(f, EndOfFile);
    WriteLn(i:2,' : ',s);
  end;
  Close(f);

  if (i=3) then begin
     .... в переменной S - 3-я строчка файл вот ТУТ ПИШИТЕ ОБРАБОТКУ ...
  end
  else
     WriteLn('В заданном файле менее 3-х строк');

  WriteLn('Done.');
  readln;
end.

[D.o.c]

как раз эта обработка и непонятна, как ее осуществить с помощью строк? киньте хоть намек.

[Serge_Bliznykov]

не понимаете, значит...
А как же Вы сдавать работу собираетесь?!
ладно, вот обработка ПОЛНОСТЬЮ:

if pos(' ',s)>0 then
  WriteLn('Первое слово в третье строке: ', Copy(s,1,Pos(' ',s)-1))
else
  WriteLn('В третье строке нет пробелов, значит первое слово: ',s);