Верхние линии пропадают при выводе

program lr45;
 
uses
    crt;
const num=20;
var
 
  ms:array[1..num] of real;
  x,dx,v:real;
  i,ii:integer; {index}
 
begin
  write('enter x: '); readln(x);
  write('enter dx: '); readln(dx);
  writeln('x: ',x:3:3,' dx: ',dx:3:3);
  writeln;
  for i:=1 to num do
      begin
        ms[i]:=10*sin(x);
        x:=x+dx;
      end;
  for i:=1 to num do
      begin
        writeln(i,': ',ms[i]:3:3);
      end;
  writeln;
  writeln('uzdevums: atrast lielako elementu ar nepara indeksi, kuram vertiba ir mazaka par 7');
  v:=0;
  for i:=1 to num do
      begin
        if i mod 2 <> 0 then
        begin
             if ms[i] < 7 then
             begin
                  if ms[i] > v then
                     begin
                     v:=ms[i];
                     ii:=i;
                     end;
             end;
        end;
      end;
 writeln('elementa indekss: ',ii);
 writeln('elementa vertiba: ',v:3:3);
 writeln;
 writeln('enter - terminate');
 readln;
end.