program costam;
{$APPTYPE CONSOLE}

var
    imie : string;

begin
    imie := '';
    while imie <> 'wypierdalaj' do
    begin
        writeln('wpisz imie...');
        readln(imie);

        if imie = 'Janusz' then
        begin
            writeln('te wszystkie dane');
        end;
        if imie = 'Aleksandra' then
        begin
            writeln('to samo');
        end;
    end;

    readln;
end.