Нужно сделать подпрограмму. Помогите не умею я подпрограммы писать! 9 класс, Делфи

Сделать подпрограмму, которая вводит с клавиатуры 3 числа, находит найбольшее и выводит на экран.

В делфи массив можно вывести вот так:

memo1.Lines.Add(IntToStr(mas[i]));

Точнее вот так

for i:= 1 to 6 do memo1.Lines.Add(IntToStr(mas[i]));

вместо 6 подставляешь свои 10

var a,b,c:integer; begin read(a,b,c);    if (a > b) and (a > c) then         write(a)    else        if (b > a) and (b > c) then         write(b)    else         write(c); end.В делфи добавишь на форму Эдиты(4 штуки) и одну кнопку. В трех Эдитах будешь вводить свои значения, а в четвертом выведешь ответ и все это при клике на кнопку:Procedure btn1Click;var a, b, c, max: integer; begin a:= StrToInt(edt1.Text); // где edt1,2,3 - имена полей для ввода(Эдиты)b:= StrToInt(edt2.Text);c:= StrToInt(edt2.Text);   if (a > b) and (a > c) then         max:= a;    else        if (b > a) and (b > c) then         max:= b;   else         max:= c;edt4.Text:= 'Максимальное число' + max;//или ShowMessage(Максимальное число' + max); end.