Program v pascale-help!:/

Potrebujem, aby mi niekto napisal nasledujuci program prosim
v subore dekadicke.txt su cisla v10tkovej sustave. napiste program, ktory ich prevedie do dvojkovej sustavy.
a. nacitat cisla
b. cisla po poradi previest do dvjkovej sustavy, vysledok vypisat v tvare cislo(10)=cislo(2) napr 7(10)=111(2)
c. program zisti, kolko 1 a 0 ma kazde cislo
d. cisla nacitat do retazca

prosim je to surne, potrebujem to najneskor do zajtra rana
stacil by aj zaciatok, alebo nejaka cast z toho
ja nemam ani sajnu jak to poskladat

prosim velmi velmi moc

no že si ten Light Professional, počkaj chvýľku..

//edit:
takže momentálne nemám pascal, robil som to v delphi. Nechápal som čo si myslel tým posledným bodom že načítať do reťazca, tak to som nerobil. Dá sa to ešte odladiť, ale takto to bude pani učiteľke asi stačiť

Kód: Vybrať všetko

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var vstup:textfile;
desat,cislo,jednotky,nuly:integer;
dva:string;
begin
assign(vstup,'dekadicke.txt');
reset(vstup);
while not eof(vstup) do begin
  readln(vstup,cislo);
  desat:=cislo;
  dva:='';
  jednotky:=0; nuly:=0;
  while cislo<>0 do begin
  if (cislo mod 2)=1 then begin
    dva:='1'+dva;
    jednotky:=jednotky+1;
    end else begin
    dva:='0'+dva;
    nuly:=nuly+1;
    end;
    cislo:=cislo div 2;
    end;

  writeln(desat,'(10) = ',dva,'(2)','   Jednotiek: ',jednotky,' Nul: ',nuly);
  end;
  close(vstup);
  read(cislo);

end.

fuha, diky moc,mas to u mna, budes zasobovany karmou

este raz vdaka

//audiotrack: nz, bolo to ľahké.. také zahriatie pred nočným štúdiom programka na zápočtovku