blob: 0d7a569232192c549fad596ce40c2ccb131d0767 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
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.
|
