Дан типизированный файл, элементами которого являются строки.

[rezak91]

Дан типизированный файл, элементами которого являются строки.Напечатать третии элемент.
Вообще даж в голове не укладывается как это делать...

[rezak91]

кто то знает?

[Grag]

Var
  f:file of string;
  Line:string;
Begin
  {связывай файловую переменную с нужным файлом}
  {открывай файл для чтения}
  seek(f,2); 
  readln(f,Line)
  {а дальше печатай Line...}
End

[rezak91]

{связывай файловую переменную с нужным файлом} (поподробнее пожалуиста)

[ROMA2PVT]

assign

вот и все подробности.

[_-Re@l-_]

Assign(f,'директория где находится файл');
Reset(f);

[rezak91]

спасибо Вам Большое. нажать Спасибо за мной не осталось ;-)

[rezak91]

program TF;
Var
uses printer;
f:file of string;
Line:string;
Begin
Assign(f,'111.dat');
Reset(f);
seek(f,2);
readln(f,Line) (ЗДЕСЬ ВЫДАЕТСЯ ОШИБКА((( )
writeln (LST line);
End.

помогите плизик, что не так?

[rezak91]

VAR
F : file of integer;
i,j : integer;
BEGIN
assign(F,'111.dat');
rewrite(F);
for i:=1 to 5 do
begin
read(j);
write(F,j);
end;
close(F);
END.

создавал файл с помощью этого кода.

[rezak91]

program TF;
uses printer;
var
f:file of string;
Line:string;
Begin
Assign(f,'111.dat');
Reset(f);
seek(f,2);
(вот здесь ошибка) read(f,line);
writeln (LST);
readln;
close(f);
End.

чуть переделал, терь новая ошибка
Некто незнает?
ошибка когда альт+ф9 жмешь вылазает.
100:Deisk read error
что бы это могло оначать?