Pascal program hiba?

Egy olyan programot kell készíteni, ami kiszámolja egy jármű átlagfogyasztását. Van 5 jármű, adott minden adat, az 5 jármű megtett km-re és az átlagfogyasztása literben. Kiiratom a képernyőre az adatokat, majd az átlagszámításban elakadtam, adott az átlaghoz a képlet

átlag=100*fogyasztás/megtett km, elindul a program viszont minden járműhöz ugyan azt az átlagot írja.

program atlagg;

uses crt;

const km:array[1..5] of integer=(300,4856,50,3578,345);

l:array[1..5] of integer=(72,198,4,234,35);

var i,x,y:integer;

atlag:array[1..5,1..5] of double;

begin

clrscr;

for x:=1 to 5 do

for y:=1 to 5 do

atlag[x,y]:=((100*l[x])/km[y]);

for i:=1 to 5 do writeln(i,'jarmu megtett uta ', km[i],

' km es fogyasztasa: ',l[i],' liter es atlagfogyasztasa: ',atlag[x,y]);

repeat until keypressed;

end.