problem z zadaniem, prosze o pomoc

[arkapa]

witajcie, mam takie zadanko do zrobienia:

Napisz program - grę LOTTO "Twój Szczęśliwy numerek" należy uwzględnić: a) czytanie liczb użytkownika B) symulację losowania c) sprawdzenie wyniku i podanie stopnia wygranej.

 

zrobilem wszystko, nie moge tylko poradzic sobie, zeby program wyswietlal ile zostalo trafionych liczb i podawal stopien wygranych, stopnie wygranych sa na stronie lotto: http://lotto.pl/strona--ID-1025969.html

(w tabelce)

 

BARDZO PROSZE O POMOC, nie chce zawalic semestru :(

 

a oto moj program:

 

PROGRAM numerek;

USES crt;

 

type t_zakres=1..49;

 

const liczby : array[1..49] of t_zakres=

(1,2,3,4,5,6,7,8,9,10,

11,12,13,14,15,16,17,18,19,20,

21,22,23,24,25,26,27,28,29,30,

31,32,33,34,35,36,37,38,39,40,

41,42,43,44,45,46,47,48,49);

 

VAR

i: byte; {zmienna sterujaca}

Los1z36: byte; {wylosowana liczba}

LGracza: byte; {Liczba gracza}

wylosowane: array[1..4] of byte;

LGracza4z45: byte;

Klawisz: char;

 

PROCEDURE plos4z45;

VAR nr_los,n,x,j: byte;

 

BEGIN

ClrScr;

Randomize;

FOR i:=1 TO 4 DO

BEGIN

nr_los:=random(46-i)+1;

wylosowane:=liczby[nr_los];

FOR n:=nr_los TO 48-i DO liczby[n]:=liczby[n+1];

END;

 

FOR i:=2 TO 4 DO

BEGIN

x:=wylosowane;

wylosowane:=x;

j:=i-1;

WHILE x<wylosowane[j] DO

BEGIN

wylosowane[j+1]:=wylosowane[j];

inc(j,-1);

END;

wylosowane[j+1]:=x

END;

 

writeln(' Wylosowano nastepujuce liczby: ');

FOR i:=1 TO 4 DO write(wylosowane:2, ' ');

writeln;

END;

 

PROCEDURE plos1z36;

BEGIN

los1z36:=random(36)+1;

writeln('Wylosowana liczba to ', los1z36);

END;

 

PROCEDURE pobierz_liczby;

VAR i : integer;

BEGIN

clrscr;

Writeln('-----------------------------------');

Writeln(' TYPOWANIE 4 LICZB Z 45');

Writeln('-----------------------------------');

writeln('Podaj 4 rozne liczby z zakresu 1-45');

FOR i:=1 TO 4 DO

BEGIN

REPEAT

write('Podaj liczbe ',i,' z 4: ');

readln(wylosowane);

UNTIL (wylosowane>0)and(wylosowane<46);

END;

writeln;

writeln('Liczby wczytane od uzytkownika');

write('Twoje liczby to: ');

FOR i:=1 TO 4 DO

write(wylosowane,' ');

ClrScr;

Writeln('-----------------------------------');

Writeln(' TYPOWANIE 1 LICZBY Z 36');

Writeln('-----------------------------------');

writeln('Podaj podaj liczbe z zakresu 1-36');

REPEAT

write('Podaj liczbe ');

readln(LGracza);

UNTIL (LGracza>0)and(LGracza<37);

readln;

END;

 

PROCEDURE wyniki;

BEGIN

WriteLn('W przygotowaniu');

END;

 

BEGIN

REPEAT

pobierz_liczby;

plos4z45;

plos1z36;

wyniki;

Write('Czy chcesz grac dalej? [T/N] ');

Klawisz:=readkey; Klawisz:=UpCase(Klawisz);

UNTIL Klawisz='N';

END.