programovanie v Pascali

program Project2;
var znaky:array['a'..'z']of boolean;
    vstup:textfile;
    pismenko:char;
begin
  for pismenko:='a' to 'z' do znaky[pismenko]:=false;
  assign(vstup,'vstup.txt');
  reset(vstup);
  while not eof(vstup) do begin
    read(vstup,pismenko);
    if ((ord(pismenko)<=90) and (ord(pismenko)>=65)) or ((ord(pismenko)<=122) and (ord(pismenko)>=97))
        then znaky[pismenko]:=true;
  end;
  for pismenko:='a' to 'z' do if znaky[pismenko] then write(pismenko);
end.