Premena vety

program premenavety;
{$APPTYPE CONSOLE}
uses SysUtils;
var veta:string;
    znak:char;
    i:word;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte vetu: ');
  readln(veta);
  i:=length(veta);
  if (veta[i] <> '.') and (veta[i] <> '?') and (veta[i] <> '!') and (veta[i] <> ':') then
    begin
      write('Dokoncite vetu! ');
      readln(znak);
    end;
  write('Zadali ste vetu: ');
  write(LowerCase(veta));
  writeln(znak);
  readln;
end.