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

var
  A: array [1..3] of integer;
  i, j, v: integer;
 
begin
  for i := 1 to 3 do
  begin
    write('Введите ', i, ' число: '); 
    readln(A[i]);
  end;
  for i := 1 to 3 do 
    for j := i + 1 to 3 do
      if A[i] < A[j] then
      begin
        v := A[i];
        A[i] := A[j];
        A[j] := v;
      end;
  writeln('Максимальное число: ', A[1]);
end.