Заданы три группы чисел: 10, 20, 50 и 100, 200, 75 и A, B, C. Найти max значение в каждой группе чисел и max из полученных max.- Pascal(Паскаль)

function max(a, b, c: integer): integer;
begin
  if (a > b) and (a > c) then
    max := a
  else if (b > a) and (b > c) then
    max := b
  else
    max := c;
end;

var
  a, b, c, k, l, m, n: integer;

begin
  a := 10;
  b := 20;
  c := 50;
  k := max(a, b, c);
  writeln('max 1 gruppy=', k);
  a := 100;
  b := 200;
  c := 75;
  l := max(a, b, c);
  writeln('max 2 gruppy=', l);
  writeln('vvedite chisla a,b,c');
  read(a, b, c);
  m := max(a, b, c);
  writeln('max 3 gruppy=', m);
  n := max(k, l, m);
  writeln('max vseh grupp=', n);
  readln;
  readln;

end.