mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-27 20:53:48 +02:00
26 lines
459 B
ObjectPascal
26 lines
459 B
ObjectPascal
Program Example50;
|
|
|
|
{ Program to demonstrate the Read(Ln) function. }
|
|
|
|
Var S : String;
|
|
C : Char;
|
|
F : File of char;
|
|
|
|
begin
|
|
Assign (F,'ex50.pp');
|
|
Reset (F);
|
|
C:='A';
|
|
Writeln ('The characters before the first space in ex50.pp are : ');
|
|
While not Eof(f) and (C<>' ') do
|
|
Begin
|
|
Read (F,C);
|
|
Write (C);
|
|
end;
|
|
Writeln;
|
|
Close (F);
|
|
Writeln ('Type some words. An empty line ends the program.');
|
|
repeat
|
|
Readln (S);
|
|
until S='';
|
|
end.
|