как сделать переход на новую строку

Const s='Pas';
s1='cal';
begin
write(s+#10,s1);
end.

program test;
uses crt;
var ball,ball2:byte;
    w,a,b,c,d:string;
    k:char;
procedure wopros;
begin
    writeln(w);
    writeln('1)', a);
    writeln('2)', b);
    writeln('3)', c);
    writeln('4)', d);
    repeat
    k:=readkey;
    until(k='1')or(k='2')or(k='3')or(k='4');
end;
begin
    clrscr;
    ball:=0;
    ball2:=0;
    
    w:='2+2 = ?';
    a:='2'; b:='4'; c:='1'; d:='5';
    wopros;
    if k='2' then ball:=ball+1
             else ball2:=ball2+1;
      // сюда пробел       
    w:='2+3 = ?';
    a:='2'; b:='5'; c:='1'; d:='6';
    wopros;
    if k='2' then ball:=ball+1
             else ball2:=ball2+1;
      // сюда пробел      
    w:='2+6 = ?';
    a:='2'; b:='8'; c:='1'; d:='5';
    wopros;
    if k='2' then ball:=ball+1
             else ball2:=ball2+1;
      // сюда пробел      
    writeln('Верно: ', ball);
    writeln('Неверно: ', ball2);
    repeat until keypressed;
end.

procedure wopros;
begin
    writeln(w);
    writeln('1)', a);
    writeln('2)', b);
    writeln('3)', c);
    writeln('4)', d); //поменяй на writeln('4)',d,#10);
    repeat
    k:=readkey;
    until(k='1')or(k='2')or(k='3')or(k='4');
end;