Ввести информацию по 10 избирателям, определить количество людей, проживающих на улице Красная — Pascal(Паскаль)

Program zap_2;

Uses Crt;

Const
  n = 10;

Type
  data = record
    name, street: string;
  end;

Var
  a: array [1 .. n] of data;
  count, i: byte;

BEGIN
  ClrScr;
  count := 0;
  for i := 1 to n do
  begin
    Writeln('Избиратель ', i);
    Writeln('Имя...');
    Readln(a[i].name);
    Writeln('Улица...');
    Readln(a[i].street);
    if a[i].street = 'Красная' then
    begin
      Writeln(a[i].name, ' живет на улице Красная.');
      inc(count)
    end;
  end;
  Writeln(count, ' количество человек, живущих на улице Красная.');
  Readln;

End.