Нужно написать в PascalABCБуду благодарен!Даны натуральное число n и знаки

Uses crt;
var
a,b,s:char;
t,t1,n,i:integer;
begin
t:=0;
t1:=0;
a:='+';
b:='*';
writeln('Введите n'); readln(n);
for i:=1 to n do
begin
writeln('Введите S');
readln(s);
if s=a then
t:=t+1;
if s=b then
t1:=t1+1;
writeln('S=',s);
end;
writeln('+=',t);
writeln('*=',t1);
end.

Var n, i, StarCount, PlusCount:integer;
    s:char;
begin
StarCount:=0;
PlusCount:=0;
 writeln('Enter n');
readln(n);
for i:=0 to n-1 do
    begin
    writeln('Enter the symbol');
    readln(s);
    if(s='*') then StarCount:=StarCount+1;
    if(s='+') then PlusCount:=PlusCount+1;
    end;
 writeln('Count of star: ', StarCount);
 writeln('Count of plus: ', PlusCount);
 end.