В паскале нужна программа…

Не помню как там с объявлением переменных, но если брать основную часть, то: begina: =0; b: =mas[1]; max=0; for (int i: =1; i <= 20; i: =i+1) {if (mas[i]>max) {max: =mas[i]; a: =i; }mas[1]: =mas[a]; mas[a]: =b;