Something

//Penkta dalis
  writeln('Dabar patikrinsime ar ivesdami varda ir pavarde i ivesties faila nenaudojote simboliu, skaiciu ir dejote tik po viena tarpa.');
{$i-}
  reset(infile);
{$i+}
if IOresult <> 0 then
begin
writeln('Ivesties failas neegzistuoja. Baigiame darba');
halt;
end;
  readln(infile, ID);
  if (ID[1] in ['a'..'z']) or (ID[1] in ['A'..'Z'])
     then ident[1]:= upcase(ID[1]);
  for i := 2 to length(ID) do
    begin
     if alpha(ID[1]) then
       if ID[i-1] = ' ' then ident[i]:= upcase(ID[i])
         else ident[i] := lcase(ID[i]);
     if (ID[i] = ' ') and (ID[i-1] <> ' ') then
        ident[i]:= ID[i];
    end;
  close(infile);
  rewrite(outfile);
  writeln(outfile, ident);
  close(outfile);
  writeln('I isvesities faila buvo irasyto tokie duomenys: ', ident);
  writeln('Spauskite <Enter> noredami uzdaryti programa');
  writeln(ord('a'),' ', ord('A'));
  readln;
end.
//pabaiga