Помогите написать на паскале

program chislo; // название программы
uses crt; // подключение дополнительного модуля для вывода в отдельном окне (и не только)
var x,y,a,b: Byte; //определение переменных типа Byte
Begin //начало программы
cls; //очистка окна программы
Write('Введите двухзначное число (Х) : ');//вывод на экран подсказки при вводе числа X
ReadLn(x);//ввод числа X с клавиатуры с переводом строки (переход на другую строку)
a:=x div 10;//Получение значения первой цифры числа
b:=x mod 10;//Получение значения второй цифры числа
Write('Введите число (Y): '); //Вывод на экран подсказки при вводе числа Y
ReadLn(y);//ввод числа Y с клавиатуры с переводом строки (переход на другую строку)
if (a+b)>y then //проверка первого условия задачи, и если сумма цифр числа больше Y, то
begin
Write('Разность цифр числа X равна: '); //выводим на экран разность цифр числа X,
WriteLn(a-b); //если надо без знака "-", то заменить на WriteLn(abs(a-b));
end
else //иначе, если условие не верно, то
begin
Write('Произведение цифр числа X равно: ');//выводим на экран
WriteLn(a*b); //произведение цифр числа X,
end;
End.// конец программы

program prj1;
var x,y,i,k: integer;
begin
writeln('Введите число Х и число У');
read(x,y);
k:=0;
for i:=1 to X do
k:=k+i; //Нушли сумму цифр от1 до X

k:=0;
if k > Y then
for i:=1 to X do
k:=k-i; // Находем разность
else
begin
k:=1;
for i:=1 to X do
k:=k*i; // Находем произведение
end;
edn.

program hernya;
uses crt;
var x,i,a,b:integer;
begin
clrscr;
writeln('введите двузначное число x');
readln(x);
writeln('введите число y');
radln(y);
a:=x mod 10;
b:=x div 10;
if x>y then
writteln('x больше чем y, разность цифр числа х = 'a-b)
else
writteln('x меньше чем y, произведение цифр числа х = 'a*b);
readln;
end;
сначало находим остаток от деления на 10 то есть единицы числа х, потом целочисленную часть то есть десятки числа х, сравниваем числа х и у, и исходя от результата либо отнимаем их друг от друга либо умножаем!!!! как то так!

переведи цифры в текст, присвой двум текстовым переменным значения первой и второй цифры, переведи оба переменных в числовые значения, далее чисто математика.