Ввести цифры до команды 'stop' и подсчитать количество пар, сумма которых равна 13 - PascalABC.NET

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

Вводятся пары чисел до тех пор, пока не будет написано слово 'stop', после чего подсчитывается количество пар, сумма которых равна 13. Моя попытка решения ниже. В 11 строчке выдает: Ожидалось ';' (также большая вероятность др. ошибок). Желательно исправленный вариант моей попытки.

program rx;
uses crt;
label x,t;
var i,h:integer;
    m:string;
begin
   i:=0;
   writeln('Введите пары чисел.');
   writeln('Чтобы остановить ввод напишите в строке "stop". ');
 x:readln(m);
   if m:='stop' then goto t else m:=integer(m);
   readln(h);
   if m+h=13 then i:=i+1;
   goto x;
 t:ClrScr;
   writeln('  ');
   writeln('Кол-во пар чисел, сумма которых равна тринадцати= ',i);
end.

Решение задачи: «Ввести цифры до команды 'stop' и подсчитать количество пар, сумма которых равна 13»

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

var i,h:integer;
    m:string;
begin
repeat
   writeln('Введите пары чисел.');
   writeln('Чтобы остановить ввод, напишите в строке "stop". ');
   readln(m);
   if m<>'stop' then 
    begin
    readln(h);
    if strtoint(m)+h=13 then inc(i);
    end;
until m='stop';
   writeln('  ');
   writeln('Кол-во пар чисел, сумма которых равна тринадцати= ',i);
end.

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

В коде используется цикл repeat..until, который будет выполняться до тех пор, пока не будет введено значение stop.
В начале каждого цикла выводится сообщение с просьбой ввести пары чисел и предупреждением о том, что для остановки ввода нужно ввести stop.
Затем считывается строка от пользователя (переменная m). Если введенная строка не равна stop, то считывается второе число (переменная h).
Затем проверяется, равна ли сумма чисел, введенных пользователем, 13. Если да, то к счетчику пар (переменная i) прибавляется единица.
После окончания цикла выводится количество пар чисел, сумма которых равна 13.