Работа с файлами. Доделать. Pascal.

[GoodNight]

Здравствуйте!
Дан текстовый файл. Перепишите его содержимое в новый файл сохраняя строчную структуру и удаляя пустые строки.

var f,g : Text;
  s : string;
begin
  Assign(f, 'ishod.txt'); 
  Reset(f);
  Assign(g,'rezult.txt');
  Rewwrite(g);
  while Not eof(f) do begin
     Readln(f, s);
     if s<>'' then WriteLn(g, s);
  end; 
  Close(f);
  Сlose(g);
end.

Что нужно изменить в if, чтобы пустыми считать строчки, состоящие за пробелов и знаков табуляции?