PD w Delphi

Witam,
mam duży problem. Mamy zadane jako prace domową zrobienie programu ale ja nie mam zielonego pojęcia jak go zrobić.
Potrzebuje program w którym będzie proźba o podanie imienia, nazwiska, daty urodzeniai miejsca urodzenia (wszystko jedno pod drugim). Mam także wykorzystać case (cokolwiek by to było) które mi poda imie pod spodem wszystkiego. Zrobiłem to:

 var
Tablica : array[0..3] of String;

begin
  writeln('Podaj imie, nazwisko, date urodzenia oraz miejsce urodzenia');
  Tablica[0]:= 'Imie';
  Tablica[1]:= 'Nazwisko';
  Tablica[2]:= 'Data urodzenia';
  Tablica[3]:= 'Miejsce urodzenia';
Case Tablica[0] of;
 A..Z: writeln ('Jakos obleci')
 1..10000000: writelm ('No co Ty? Z Holocausu sie urwales?')
  readln;
  readln;
  readln;
  readln;
end.

Ale mi nie działa :(