11 lines
159 B
Text
11 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;
|