Решите , оту совсем не шарю в этой теме

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.

Var s,s1: string;     a: array[1..100] of string;       n,i,j,k: byte; begin writeln('введите текст из слов, разделенных пробелами'); readln(s); s: =' '+s+' '; n: =length(s); i: =2; k: =0; while i< =n do if (s[i]< > ' ')and (s[i-1]=' ') then begin  k: =k+1;   j: =i;   s1: ='';     while (j< =n) and (s[j]< > ' ') do     begin    s1: =s1+s[j];     j: =j+1;     end;   a[k]: =s1;   i: =i+length(s1);   end else i: =i+1; for i: =1 to k-1 do for j: =i+1 to k do if a[i]> a[j] then  begin  s1: =a[i];     a[i]: =a[j];   a[j]: =s1   end; writeln('слова текста в алфавитном порядке: '); for i: =1 to k do writeln(a[i]); end.