PENULISAN CODING ARRAY SATU DIMENSI MENGGUNAKAN FUNGSI WHILE

Perulangan ini mirip dengan perulangan Repeat Until tetapi pengecekannya berada di awal sebelum melakukan proses yang berulang. Perulangan ini berjalan selama kondisi pengecekan bernilai true. Jika kondisi telah mempunyai nilai false maka perulangan tidak dilakukan lagi.
Bentuk umum dari While Do adalah seperti berikut :
           While kondisi do
            Begin
            Perintah;
            Perintah;
            End;
Berikut ini contoh script program pada delphi 7 :
program Project5;
{$APPTYPE CONSOLE}
uses
  SysUtils;
Var
  tot,i,jum:integer;
  rata:real;
  nilai:array[1..10]of integer;
begin
  writeln('NIM  : 114224008');
  writeln('NAMA : AZIZUN NURRACHMAN');
  writeln('=================================');
  writeln('CONTOH SCRIPT PENENTUAN RATA-RATA');
  writeln('=================================');
  writeln('                              ');
  i:=1;tot:=0;
  write('Masukkan Jumlah Data = ');
  readln(jum);
  while i<=jum do
begin
  write('Masukkan nilai ke ', i ,':');
  readln(nilai[i]);
  tot:=tot+nilai[i];
  i:=i+1;
end;
  rata:=tot/jum;
  writeln('');
  writeln('Rata-Rata nilai = ', rata:4:1);
  readln;
end.