Среди вводимых через х 10 чисел нужно найти максимальное…

Блин парился, парился так и не допер как сделать то что я хотел, путь будет так. ВАРИАНТ 1: Var i: integer; n,m,max,min: real; Beginm: =10; min: =999999999999999999999999999999999999999999; for i: =1 to 10 do begin Write ('Введите числа (осталось ',m,'чисел): '); readln (n); m: =m-1; if n>max then max: =n if nmax then max: =n; m: =m-1; Until (m=0); Writeln ('Минимально число: ',min,' максимальное: ',max); end. ВАРИАНТ 3: Var i,m: integer; min,max,n: real; Beginm: =9; Write ('Введите 10 чисел: '); readln (n); min: =n; while m<>0 do begin write ('Введите ',m,'чисел: '); readln (n); m: =m-1; if nmax then max: =n; end; Writeln ('Минимально число: ',min,' максимальное: ',max); end. ВАРИАНТ 4: Var n1; n2,n3,n4,n5,n6,n7,n8,n9,n10: real; BeginWrite ('Введите 10 чисел: '); readln (n); max: =n; min: =n; Write ('Введите 9 чисел: '); readln (n); if n>max then max: =n; if nmax then max: =n; if nmax then max: =n; if nmax then max: =n; if nmax then max: =n; if nmax then max: =n; if nmax then max: =n; if nmax then max: =n; if nmax then max: =n; if n