mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
25 lines
420 B
ObjectPascal
25 lines
420 B
ObjectPascal
{ %OPT=-Sr }
|
|
{$mode iso}
|
|
program test(input, output, testfile);
|
|
|
|
var
|
|
testfile : text;
|
|
s : array[1..100] of char;
|
|
begin
|
|
rewrite(testfile);
|
|
writeln(testfile,'Hello world');
|
|
close(testfile);
|
|
|
|
assign(testfile,'TESTFILE.txt');
|
|
reset(testfile);
|
|
readln(testfile,s);
|
|
if (s[1]<>'H') or (s[2]<>'e') then
|
|
halt(1);
|
|
close(testfile);
|
|
erase(testfile);
|
|
|
|
writeln('ok');
|
|
end.
|
|
|
|
|