[Delphi] Pomoč pri reševanju naloge ! Nujno :/

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a, b :integer;
  x :real;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  Write('Vnesi a: ');  //piše
  Readln(a);  //bere v a
  Write('Vnesi b: ');
  Readln(b);
  x := -b/a;  //obrnjena enačba iz naloge
  Writeln(x:0:3);  //izpiše na 3 decimalna mesta natančno
  readln;
end.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  stevilo :string;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  Write('Vnesi celo število: ');
  Readln(stevilo); // preberemo v string
  Writeln(stevilo[2]+stevilo[1]); // izpisemo drugi znak stringa in za njim se prvega.
  readln;
end.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  znesek, kov10, kov5, kov2, kov1:integer;


begin
  { TODO -oUser -cConsole Main : Insert code here }
  kov10:=0; kov5:=0; kov2:=0; kov1:=0; //ponastavimo vrednosti
  Write('Vnesi znesek: '); 
  Readln(znesek); //preberemo znesek
  while znesek>9 do begin //preverimo če znesek večji od kovanca
    kov10:=kov10+1;  //če je potem prištejemo da smo porabli kovanec
    znesek:=znesek-10; //odštejemo od zneska
  end;
  while znesek>4 do begin
    kov5:=kov5+1;
    znesek:=znesek-5;
  end;
  while znesek>1 do begin
    kov2:=kov2+1;
    znesek:=znesek-2;
  end;
  while znesek>0 do begin
    kov1:=kov1+1;
    znesek:=znesek-1;
  end;
  Write('Potrebujemo '+inttostr(kov10)+' x 10 SIT, '+inttostr(kov5)+' x 5 SIT, '+inttostr(kov2)+' x 2 SIT, '+inttostr(kov1)+' x 1 SIT.'); //izpis
  readln;
end.