Pascal - help (noob)

program eurokalkulacka;
uses crt;
var sk,euro,x1,x2:real;
   klaves:char;
begin;
      clrcsr;
      writeln('Vyber pozadovanu operaciu stlacenim cisla 1 alebo 2: ');
      writeln('1 - EURO -> SK');
      writeln('2 - SK -> EURO');
      klaves:readkey;
      case klaves of
          '1':
          '2':
end;

program eurokalkulacka;
var
      suma:real;
      klaves:char;
begin;

      write('Zadajte sumu: ');
      readln(suma);
      writeln('Vyber pozadovanu operaciu stlacenim cisla 1 alebo 2: ');
      writeln('1 - EURO -> SK');
      writeln('2 - SK -> EURO');
      readln(klaves);
      case klaves of
          '1': suma:=suma*30.126;
          '2': suma:=suma/30.126
      end;
      writeln('Vysledna suma je ', suma:0:3);
      readln;
end.

program eurokalkulacka;
var
      suma:real;
      klaves:char;
begin;

      writeln('Vyber pozadovanu operaciu stlacenim cisla 1 alebo 2: ');
      writeln('1 - EURO -> SK');
      writeln('2 - SK -> EURO');
      readln(klaves);
      write('Zadajte sumu: ');
      readln(suma);
      case klaves of
          '1': suma:=suma*30.126;
          '2': suma:=suma/30.126
      end;
      writeln('Vysledna suma je ', suma:0:3);
      readln;
end.