Cоставить данные об ассортименте обуви в магазине. Структура : наименование, цена. Вывести на экран наименование самый дорогой обуви.

Рrogram esep;                                                             
var    a:array [1..5] of string ;                                   
         b: array [1..5] of integer;                                              
         i,k,max:integer;                                                         
begin                                                                        
         k:=0;                                                                        
         for i:=1 to 5 do begin                                                        
writeln('naimenovannie');                                                       
readln(a[i]);                                                                 
writeln('cena');                                                       
readln(b[i]);                                                                 
end;                                                                          
          max:=b[1];                                                                    
          for i:=2 to 5 do begin                                                        
          if b[i]>max                                                                   
          then max:=b[i];                                                               
          k:=i;                                                                         
end;                                                                         
writeln('samaya dorogaya pasra obyvi',a[k]);                                          
end.