Нужно сделать подпрограмму. Помогите не умею я подпрограммы писать! 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.