Как сделать так чтобы программа не печатала пустые строки?

Uses crt;
Type mass_st=array[1..20] of string;
Var st,s1:mass_st; i,k,n:integer; cif,probel, lat:string;
  Start  : integer;
  Stop     : integer;
  j, nmin,u,min, nol,npod,p,per,nstr ,h: integer;
  len      : integer;
  flag:boolean;
begin
Writeln ('Задание 1');
n:=0;
Writeln ('Введите количество строк');
Repeat
Readln (k);
until (k>0) and (k<=20);
Writeln ('Введите ',k,' строку(-и)');
For i:=1 to k do
Readln (st[i]);
 probel:=' ';
lat:='qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM';
cif:='1234567890';
min:=256;
nmin:=1;
{поиск начала латинских букв в первой строке}
For i:=1 to k do begin
Start := 1;
len   := Length(st[i]);
Stop  := len;
j:=1;
 
 
While (stop>=start) and (pos(st[i][stop],lat)=0) do dec(stop);
While (start<=len) and (pos(st[i][start],lat)=0) do inc(start);
 
While (start<=stop)  do
begin
npod:=npod+1;
flag:=true;
{пропускаем латинские буквы  }
if pos(st[i][start],lat)>0 then
while pos(st[i][start],lat)>0 do
inc(start);
p:=start;
h:=p;// начало подстроки
 
writeln ('Минимальный код ', min) ;
   {печатаем русские буквы }
while (pos(st[i][start],lat)=0) and (start<=stop) do
 begin
 write (st[i][start]); inc(start); n:=n+1;
 {сравниваем коды , находим минимальный}
 if ord(st[i][start])< min then begin
                                min:=ord(st[i][start]);
                                nmin:=npod;  // номер подстроки с минимальным по коду символом
                                per:=p;
                                u:=per;
                                nstr:=i;// номер строки с минимальным по коду символом
                                end;
  end;
writeln;
end;
end;
 
  if (n = 0) then
    WriteLn('Нет подстрок, ограниченных с обеих сторон латинскими буквами!');
  {вывод подстроки, содержащий минимальный символ}
    writeln ('номер подстроки с минимальным символом ',nmin);
    while pos(st[nstr][per],lat)=0   do
    begin
    write (st[nstr][per])   ;
    per:=per+1;
    end;
    writeln;
 
{задание 3}
per:=u;
while (pos(st[nstr][per],lat)=0)    do
    begin
    if  pos(st[nstr][per],cif)>0 then  write('..')
    else    write (st[nstr][per])   ;
    per:=per+1;
    end;
end.