🚀 go-pugleaf

Na początku chciałbym wspomnieć , że kompletnie nie znam się na
programowaniu w pascalu.
Mam natomiast 1 program i chciałbym go nieco zmodyfikować .

Aktualnie moje zmienne liczbowe są zapisane jako typ Longword 	a więc
ich wartość wynosi od 0  do 4294967295 .

Chciałbym ten zakres jednak poszerzyć , znalazłem taką tabelkę :

Nazwa typu 	Zakres 	Znaczące cyfry 	Format
Real48 	2.9 x 10^-39 .. 1.7 x 10^38 	11-12 	48-bitowy
Single 	1.5 x 10^-45 .. 3.4 x 10^38 	7-8 	32-bitowy
Double 	1.5 x 10^-309 .. 1.7 x 10^309 	15-16 	64-bitowy
Extended 	3.6 x 10^-4951 .. 1.1 x 10^4932 	19-20 	80-bitowy
Comp 	-2^63 .. 2^63 -1 	19-20 	64-bitowy
Currency 	-922337203685477.5808 .. 922337203685477.5807 	19-20 	64-
bitowy



zmieniłem longword na double jednak program nie chce się skompilować .

Podejrzewam , że muszę coś jeszcze zrobić aby wszystko ładnie
działało ...

Jeśli ktoś ma jakieś rady byłbym wdzięczny .

oto jak  program wgląda aktualnie :

 program gbfa;
uses crt;
var w,i,r,dana,orl,blad:longword;
tak:char;

 begin
 Repeat
clrscr;
writeln('Ile razy podrzucic monete ? ');
readln(dana);

 r:=0;
 randomize;
 for i:=1 to dana do
  begin
  w:=random(2)+1;
  if w mod 2=0 then r:=r+1;
  end;
  orl:=dana-r;
  writeln('Wylosowano ',r,' reszek ');
  writeln('Wylosowano ',orl,' orlow ');
  writeln(' ');
  writeln('Procentowy dzial reszek ',r/dana*100:1:6);
  writeln('Procentowy udzial orlow ',orl/dana*100:1:6);
  writeln(' ');
  writeln('Roznica miedzy reszkami a orlami ',r-orl);
  writeln(' ');
  writeln('Wartosc bledu ',r/dana*100-orl/dana*100:1:6);
  writeln(' ');
  writeln('Jeszcze raz ? (t/n) ');
 tak:=UpCase(readkey);


  until not (tak = 'T');
  end.