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

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

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.