В файле Р1 набрать текст. Сообщить сколько раз встречаются в тексте каждая латинская буква и каждый знак арифметической операции-Pascal(Паскаль)

uses crt;

var
  c, i, j: char;
  znaki: set of 'a' .. 'z';
  prep: set of '!' .. '?';
  f: text;

BEGIN
  clrscr;
  { -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ }
  assign(f, 'c:\tpascal.71\bin\pas\p1.txt');
  reset(f);
  { -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ }
  textcolor(10);
  writeln('press line');
  { -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ }
  znaki := [];
  prep := [];
  { -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ }
  repeat
    read(f, c);
    if c in ['a' .. 'z'] then
      znaki := znaki + [c]
    else if c in ['!', '.', ',', '/', '*', '-', '+', '=', '-', '_', '\', '|',
      '/', ';', ':', '?']
    { armagedon }
    then
      prep := prep + [c];
  until eof(f);
  { -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ }
  close(f);
  { -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ }
  textcolor(2);
  writeln('latin''s bykvi');
  for i := 'a' to 'z' do
    if i in znaki then
      write(i:2);
  { -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ }
  writeln;
  { -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ }
  textcolor(5);
  writeln('znaki prepinanija');
  for j := '!' to '?' do
    if j in prep then
      write(j:2);
  { -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ }
  readkey;
  readkey;

END.