Pascal pagalba

Sveiki, gal galit padėti.

Kaip reik padaryt, kad iš tekstinio failo, kuriame yra:

02/03/02

išgaučiau skaičius ir jie visalaik būtų su nuliu( ta prasme kad 02, nepasidarytų 2);

tu į integer negali įrašyti 02, nebent gali įrašyti 2, o po to jeigu reikia kažkur atvaizduoti su 0, tai if x<10, is pradžių nupaišai nulį, o po to skaičių.

O ar eina, turimą string skaičių paversti į longint, arba bent, kad jį atpažintų kaip skaičių???

Cha, olimpiadininkas mat, o pagalbos forumuose ieško -.-

Kaip tik nesenai sprendžiau

program Gimtadienis;

Const   Cduom = 'U1.txt';
       Crez  = 'U1rez.txt';


Var     yy,
       mm,
       dd,
       klaida    : integer;
       data      : string;
       Kelemieji : boolean;
       F, B      : text;
{------------------------Funkcijos ir procedûros------------------------------}
Procedure nuliukas(var strc : string; x : integer);
Begin
   if x >= 10 then str(x, strc)
              else
                begin
                 str(x, strc);
                 strc := '0' + strc;
                end;
End;

Procedure Rasyti(a, b : integer);
Var stra, strb : string;
Begin
   nuliukas(stra, a);
   nuliukas(strb, b);
   WriteLn(F, yy,'-',stra,'-',strb);
End;

procedure tikrinti(a, b : integer);
Var tinkaa, tinkab : boolean;
   maxb           : integer;
Begin
maxb := 0;
tinkaa := false;
tinkab := false;
   if a <= 12                     then
   begin
    tinkaa := true;
    if (a = 1)  or (a = 3)  or
       (a = 5)  or (a = 7)  or
       (a = 8)  or (a = 10) or
       (a = 12)                      then maxb := 31
                                    else
    begin
    if (a = 2)                       then
    if kelemieji = true              then maxb := 29
                                     else maxb := 28;
                                          maxb := 30;
    end
   end
                                  else tinkaa := false;
   if b <= maxb                   then tinkab := true
                                  else tinkab := false;
   if (tinkaa = true) and (tinkab = true) then Rasyti(a, b)
                                          else
                                          begin
                                           klaida := klaida + 1;
                                           if klaida = 2 then
                                           WriteLn(F, 'NETEISINGA');
                                          end;
End;

Procedure mmdd(var x, y : integer);
Var str : string;
   er  : integer;
Begin
  str := copy(data,1,2);
  val(str, x, er);
  str := copy(data,4,2);
  val(str, y, er);
End;

Function arkelemi : boolean;
Begin
   If yy mod 4 = 0 then arkelemi := true
                   else arkelemi := false;
End;

Procedure spresti;
var m, me, d : string[2];
   er : integer;
Begin

   m := copy(data,7,2);
   val(m, yy, er);
   if yy <= 6 then yy := 2000 + yy
              else yy := 1900 + yy;
   kelemieji := arkelemi;

   Assign(F, Crez); ReWrite(F);
   mmdd(mm,dd);
   tikrinti(mm,dd);
   mmdd(dd,mm);
   tikrinti(mm,dd);

   Close(F);
End;


Procedure Duomenys;
Begin
klaida := 0;
Assign(B, Cduom); Reset(B);
   ReadLn(B, data);
Close(B);
End;

{--------------------------Pagrindinë programa--------------------------------}

begin
 Duomenys;
 spresti;
end.

Pasinagrinėk

Tikrai galėjau optimalesnį variantą daryt, bet nebesprendžiau antrą kart. Bet dar turiu minčių kaip trumpint kodą