12 lines
159 B
Text
12 lines
159 B
Text
|
var
|
||
|
|
f : TextFile ;
|
||
|
|
s : string ;
|
||
|
|
begin
|
||
|
|
AssignFile(f,[fully qualified file name);
|
||
|
|
Reset(f);
|
||
|
|
writeln(f,s);
|
||
|
|
Reset(f);
|
||
|
|
ReadLn(F,S);
|
||
|
|
CloseFile(
|
||
|
|
end;
|