[ilang]

Честно говоря не совсем понимаю, зачем нужно ZeroMemory. Можно несколько упросить этот код, вообще не подключать никакие модули

Код:

program Project1;
{$APPTYPE CONSOLE}
type
  TData = record
    Text:ShortString;
    Count:Byte;
  end;
var
  Rec:TData;
  i:integer;
begin
  WriteLn('Intut text');
  ReadLn(Rec.Text);
  for i:=1 to Length(Rec.Text) do
    if Rec.Text[i]='A' then
      Inc(Rec.Count);
  WriteLn;
  WriteLn('Symbol "A" founded ',Rec.Count,' once');
  ReadLn;
end.