Помогите подалуйста, программа нужна в массивах..
"У вас есть доллары. Вы хотите обменять их на рубли. Есть информация стоимости купли-продажи в банках города. В городе 15 банков. Требуется определить, какой банк выбрать, чтобы наиболее выгодно обменять доллары на рубли. И вывести название банка"

type tbank=recordname:string;curs:real;end;var banks:array[1..15] of tbank;max,dollars:real;i,mi:longint;BeginWrite('You have: ');readln(dollars);for i:=1 to 15 do BeginWrite('Bank name: ');readln(banks[i].name);write('Curs: ');readln(banks[i].curs);end;max:=dollars*banks[1].curs;mi:=1;for i:=2 to 15 doBeginif(dollars*banks[i].curs>max) then Beginmax:=dollars*banks[i].curs;mi:=i;end;end;writeln('Best bank name: ',banks[mi].name,', curs is :',banks[mi].curs:2:2,', we will get: ',max:2:2,', rub.');end.