[MacGyver]

Co do wspomnianej pętelki

program kalkulatorek;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,w: integer;
    d, k: char;
begin
    repeat
    write ('Podaj pierwsza liczbe: ');
    readln (a);
    write ('Podaj druga liczbe: ');
    readln (b) ;
    write ('Podaj znak dzialania (+,-,*,/): ');
    readln (d);
    case d of
     '+'  : w:=a+b;
     '-'   : w:=a-b;
     '*'   : w:=a*b;
     '/'    :
      Begin
         if b=0 then 
            Writeln('Dzielenie przez 0' ) 
               else
                  w:=a/b;
             end;
          end;
 writeln ('Wynik dzialania wynosi: ', w);
    writeln ('Wcisnij W aby wyjsc lub dowolny klawisz aby podac nowe liczby');
    read (k);
  until k='w';
end.

...lub podobnie (na to jest masa sposobów)