файлы

[Oskar211]

Переписать в текстовый файл g содержимое текстового файла f, но без пустых строк.

[Mad_Cat]

while not eof(f) do begin
readln(f,s);
while s[1]=' ' do delete(s,1,1);
if s<>'' then writeln(g,s);
end;

[hon]

Mad_Cat, а зачем удалять пробелы?
Ведь строка '' и ' ' разные строки. Строка с пробелами, это не пустая строка.

Вот правильный вариант:

var
f,g:text; {или textfile}
s:String;

begin
Assign(f,<путь к файлу f>)
Reset(f);
Assign(g,<путь к файлу g>)
Rewrite(g);
while not eof(f) do
   begin
   readln(f,s);
   if s<>'' then writeln(g,s);
   end;
Close(f); {или Closefile}
Close(g);
end;