В месте, где написано while (s) do begin
пишет:
Нельзя преобразовать тип string к boolean.
Пишу по книжке, в книжке указан такой код:
var
f: text;
s: string;
begin
assign (f,'dop/file1.txt');
rewrite (f);
readln (s);
while (s) do begin
writeln (f,s);
readln (s);
end;
close (f);
end.
И там дано задание сделать программу, которая открывает файл и записывает туда введенную информацию с клавиатуры. Я написал:
program TeleFon;
var
f: text;
s: string;
begin
assign (f,'dop/phone.txt');
reset (f);
while not eof (f) do begin
readln (f,s);
writeln (s);
end;
close (f);
append (f);
readln (s);
while (s) do begin
writeln (f,s);
readln (s);
end;
close (f)
end.
Помогите, что не так?
while (s <> '') do