Ошибка в коде чтения

[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.

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



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.

чуть переделал, терь новая ошибка

[rezak91]

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

[Z1000000]

Создаешь файл integer
А читаешь String.
Для чего это нужно ?

[p51x]

То, что у вас в файле нет третьей string.

[rezak91]

Блин, теперь ваще запутался, напишите плз как надо?

[Z1000000]

program TF;
uses crt;
var
f:file of Integer;
Num : Integer;
Begin
Assign(f,'111.dat');
Reset(f);
seek(f,2);
read(f,Num);
writeln (Num);
close(f);
readkey;
End.