помогите, пожалуйста в Паскале программу написать Дано двузначное число. Приписать к

var

 n, k, r: Integer;

begin

 Write ('Введите двузначное число: ');

 ReadLn (n);

 if (n lt; 10) or (n gt; 99) then begin

   Writeln ('Число не двузначное!');

   Exit;

 end;

 Write ('Введите приписываемую цифру от 1 до 9: ');

 ReadLn (k);

 if (n lt; 1) or (n gt; 9) then begin

   Writeln ('Ошибка ввода!');

   Exit;

 end;

 r := k * 1000 + n * 10 + k;

 Write ('Итог = ', r);

end.