Как найти наибольшее из двадцати чисел? Решение в программе паскаль?

vara: array[1… 20] of integer; n,i: integer; beginfor i: =1 to 20 doreadln (a[i]); n: =a[1]; for i: =2 to 20 do beginif a[i]>n thenn: =a[i]; end; writeln ('naibolshee=', n); end.