Program u Turbo Pascalu

Code:

function BrojiSamoglasnike(const AString: String): Integer;
var
  C1 : Integer;
  res: Integer;
begin
  res := 0;
  for C1 := 1 to Length(AString) do
    if UpCase(AString[C1]) in ['A', 'E', 'I', 'O', 'U'] then
      Inc(res);
  BrojiSamoglasnike := res;
end;

function IzbaciSamoglasnike(const AString: String): String;
var
  C1 : Integer;
  res: String;
begin
  res := '';
  for C1 := 1 to Length(AString) do
    if not (UpCase(AString[C1]) in ['A', 'E', 'I', 'O', 'U']) then
      res := res + AString[C1];
  IzbaciSamoglasnike := res;
end;

function Unatrag(const AString: String): String;
var
  C1 : Integer;
  res: String;
begin
  res := '';
  for C1 := Length(AString) downto 1 do
    res := res + AString[C1];
  Unatrag := res;
end;

var
  ime, prezime: String;

begin
  Write('Ime: ');
  ReadLn(ime);
  Write('Prezime: ');
  ReadLn(prezime);

  WriteLn('Broj znakova u imenu i prezimenu: ', Length(ime) + Length(prezime));
  WriteLn('Broj samoglasnika u imenu i prezimenu: ', BrojiSamoglasnike(ime) + BrojiSamoglasnike(prezime));
  WriteLn('Ime i prezime bez samoglasnika: ', IzbaciSamoglasnike(ime) + ' ' + IzbaciSamoglasnike(prezime));
  WriteLn('Ime i prezime unatrag: ', Unatrag(ime) + ' ' + Unatrag(prezime));

  ReadLn;
end.