как вывести буквы без пробелов из типизированного файла

[ujif]

в типизированном файле записаны символы ,допустим
русские буквы с пробелами между ними
как вывести из файла только буквы безо всяких пробелов?
вот код ,какое условие нужно поставить чтобы пробелы не выводились
и в этом коде тоже ошибка так как выводится только первая буква
а после программа зацикливается

  var f:file of char;
       c:char;
 begin clrscr;
 assign(f,'text.txt');
  reset(f);
 while not eof(f) do begin
   read(f,c);
   write(c);
  end;

если сделать такое условие

  while not eof(f)do begin
    if c<>#10 then begin
      read(f,c);
     write(c);
   end;
 end;

то все символы считываются ,но с пробелами

[Mad_Cat]

while not eof(f)do begin
read(f,c);
if c<>' ' then write(c);
end;

[ujif]

Спасибо большое Уважаемый Mad_Cat