Две строки выводятся слитно - PascalABC.NET

Формулировка задачи:

program Calc;
var a,b:integer;
    c:char;
begin
repeat
write('Знак:');
read(c);
write('Число1:');
read(a);
write('Число2:');
read(b);
if c = '+' then writeln(a+b)
else if c = '-' then writeln(a-b)
else if c = '/' then writeln(a/b)
else if c = '*' then writeln(a*b)
else writeln('Error');
until c = 's'
end.

Вот сам код, при его запуске происходит следующее: Знак:+ Число1:56 Число2:46 102

Знак:Число1:

Почему знак и число 1 пишутся слитно?Помогите плиз

Решение задачи: «Две строки выводятся слитно»

Листинг программы

program Calc;
 
var
  a, b: integer;
  c: char;
begin
  repeat
    Write('Знак:');
    Readln(c);
    if c = 's' then
      break;
    Write('Число1:');
    Readln(a);
    Write('Число2:');
    Readln(b);
    Write('=');
    case c of
      '+': writeln(a + b);
      '-':
        writeln(a - b);
      '/': writeln(a / b);
      '*': writeln(a * b);
      else
        writeln('Error');
    end;
  until False;
end.

Объяснение кода листинга программы

Список элементов кода:

Объявление переменных: a, b, c типа integer.
Вектор цикла repeat, который выполняется до тех пор, пока не будет введен определенный знак.
Чтение значения переменной c с помощью функции Readln.
Проверка значения переменной c на равенство 's'. Если это так, то цикл прекращается.
Чтение значений переменных a и b с помощью функции Readln.
Вывод знака = на экран.
Использование конструкции case для определения операции, которую необходимо выполнить.
Выполнение операции сложения (a + b) и вывод результата на экран.
Выполнение операции вычитания (a - b) и вывод результата на экран.
Выполнение операции деления (a / b) и вывод результата на экран.
Выполнение операции умножения (a * b) и вывод результата на экран.
Если значение переменной c не равно ни одному из вышеперечисленных, то выводится сообщение об ошибке.
Цикл повторяется до тех пор, пока не будет введен определенный знак.
Конец программы.