contoh program perulangan dengan delphi atau pascal

Assalamualaikum Wr. Wb.
Yaa sesuai dengan judul diatas, silahkan teman-teman lihat langsung syntax programnya dibawah ini:
Pada postingan ini saya ingin berbagi tentang pemrograman khususnya bahasa pemrograman delphi atau pascal, bedanya terletak pada usesnya... kalau pascal menggunakan uses crt; dan atau clrscr;  sedangkan untuk bahasa pemrograman delphi menggunakan uses SysUtils; pada console application dan tidak butuh clrscr; seperti pada pascal.
Oke langsung saja;

Program menghitunga biaya hidup perminggu dan perbulan

program biayahidup;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  ongkosHPM, jumlahOHB, rerataOHM : real;
   i, m : integer;
begin
  jumlahOHB := 0.0; { Nilai awal penjumlah }
m := 4; { Jumlah minggu dalam sebulan dianggap 4 }
    for i := 1 to m do
      begin
        write('Data minggu ke : ', i,' : ');
        readln(ongkosHPM);
        jumlahOHB := jumlahOHB + ongkosHPM;
      end;
    rerataOHM := jumlahOHB/m;
writeln('Total ongkos hidup per bulan = Rp ',jumlahOHB:7:2);
writeln('Rerata ongkos hidup per minggu =Rp ',rerataOHM:7:2);
    readln;
  { TODO -oUser -cConsole Main : Insert code here}
end.
 

Sumber:
Supriyono dan Farikhah Indriani. 2007. Modul Praktikum Algoritma Pemrograman. Yogyakarta: Universitas Islam Indonesia