ЗАДАНИЕ НА ФОТО,ДАЮ МНОГО">

1) Опрятный мальчик, опрятно одет. Учится на 4-ки и 5-ки.
2) Высокий мальчик с сильными и мускулистыми руками, ногами.
3)Любой зверь, например: котик, который поранил лапку, собака с вывихнутой челюстью и т.д.
4)Моя квартира просторная, в ней есть три комнаты, ванна, кухня, туалет и кладовка.Соседние квартиры тоже 3-ёх комнат, но есть и с двумя, но тоже большие.
Я взял отличную и новую книгу в библиотеке. Она не была порвана и была интересной.
Прямоугольная штучка, которая может проигрываться.
7) Я живу в большом городе, рядом с моим городом расположен один такого же размера, а остальные населённые пункты были меньше.

Пишу на Delphi (ObjectPascal):

function Summa(a,b:integer):string;
var a1,b1:integer;
begin   //находим сумму первого числа
a1:=(a div 1000)+((a div 100)mod 10)+((a mod 100)div 10)+(a mod 10);

//находим сумму второго числа
b1:=(b div 1000)+((b div 100)mod 10)+((b mod 100)div 10)+(b mod 10);

//выясняем что больше
if a1>b1 then         
   Result:='Сумма цифр левого числа больше. Оно равно: '+IntToStr(a1)         
else         
Result:='Сумма цифр правого числа больше. Оно равно: '+IntToStr(b1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin //Выполнение и вывод результата функции через нажатие кнопки
Label1.Caption:=Summa(StrToInt(Edit1.Text),StrToInt(Edit2.Text));
end;