Помогите пожалуйста решить вот такое задание:
В текстовом файле удалить все пробелы.
Дальше описания переменных зайти не могу.
while not eof(f) do
begin
read(f,ch); // Из одного читаешь
if ch <> ' ' then
write(f1,ch); // в другой пишешь
end;
Program files;
var
ch:char;
f,f1:text;
begin
assign(f, 'file.txt');
reset(f);
assign(f1,'file1.txt');
rewrite(f1);
while not eof(f) do
begin
read(f,ch);
if ch <> ' ' then
write(f1,ch);
end;
close(f);
close(f1);
end.
var f:text;
procedure del_(var f:text);
var s:string;
begin
if not eof (f) then begin
readln (f,s);
del_(f);
while pos (' ',s)>0 do delete (s, pos(' ',s),1);
writeln (f,s);
end else rewrite (f);
end;
begin
assign (f,'c:\tst.txt');
reset (f);
del_(f); reset (f);
del_(f);
close (f);
end.