нужно исправить ошибки ,я чайник

[xrystynka171]

есть неограниченное количество монет 1,2,5,10,25,50 копийок.создать программу, которая будет определять, какой наименьшим количеством монет можно выдать определенную сумму в гривнах,
н-р, исходные данные: сумма в гривнах 2,72
выходные: 8

program z1;
var suma, kil,Kil1,Kil2,Kil3,Kil4,Kil5,Kil6:integer;
begin
readln(suma);
Kil1 := suma div 50;
suma := Suma mod 50;
Kil2 := Suma div 25;
Suma := Suma mod 25;
Kil3 := Suma div 10;
Suma := Suma mod 10;
Kil4 := Suma div 5;
Suma := Suma mod 5;
Kil5 := Suma div 2;
Suma := Suma mod 2;
Kil6 := Suma div 1;
Suma := Suma mod 1;
kil:=kil1+kil2+kil3+kil4+kil5+kil6;
writeln(kil);
readln;
end.

[ZX Spectrum-128]

Integer слитно.

Где-то я такое уже видел.

[Stilet]

Integer слитно.

То глюк портала был )
Он там и так слитно написан. Если бы новички код оформляли по правилам этого частого вопроса бы не возникало у форумчан.