fork download

copy

program main;
const alpha=['А'..'Я', 'а'..'п', 'р'..'я'];
const chars=['.', ',', '-', ':', ';', '?', 
            '!', '"'];
type SoC=set of char;
var i: Integer;
    w: string;
    c: char;
    first: SoC;
 
{Получение множества букв заданного слова}
procedure GetChars(s: string; var m: SoC);
var i: Integer;
begin
  for i:=1 to length(s) do
    if s[i] in alpha then
      include(m, s[i]);
end;
 
begin
  assign(input, 'input.txt');
  reset(input);
  assign(output, 'output.txt');
  rewrite(output);
 
  while not eof(input) do begin
    read(input, c); {Читаем один символ}
    if c in alpha then begin
      w:='';
      {Составляем слово}
      while (c in alpha) and (not eof(input)) do begin
        w:=w+c;
        write(output, c);
        read(input, c);
      end;
    end
    else
      write(output, c); {Записываем неалфавитный символ}
    {if w<>'' then
      write(output, '(', w, ') '); {Выводим слово в скобочках}
  end;
 
  close(input);
  close(output);
end.

Free Pascal Compiler version 2.2.0 [2009/11/16] for i386
Copyright (c) 1993-2007 by Florian Klaempfl
Target OS: Linux for i386
Compiling prog.pas
prog.pas(2,24) Error: Ordinal expression expected
prog.pas(16,9) Error: Incompatible types: got "Char" expected "Byte"
prog.pas(28,8) Error: Incompatible types: got "Char" expected "Byte"
prog.pas(31,14) Error: Incompatible types: got "Char" expected "Byte"
prog.pas(40,36) Warning: Comment level 2 found
prog.pas(45,4) Fatal: Unexpected end of file
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)

Standard output is empty