ребят, надо перевести с языка програмирования С++ на язык PascalABC, вот код



#include
main(){
freopen("input.txt","r",stdin);
freopen("output.txt","w",stdout);
int a,c=0,i;
char s[35];
scanf("%i",&a);
for (i=0; i scanf("%s",&s);
if (s[0]==s[3]) c++;
}
printf("%i",c);
return 0;}
ниже почти та же, ток ошибка там есть, он вместо 3 выводит 6
#include <iostream>  
using namespace std;
   int main() {      
  freopen("INPUT.TXT", "r", stdin);  
   freopen("OUTPUT.TXT", "w", stdout);  
   int n, k = 0;    
char s1[1000];  
   cin >> n;    
for(int i = 0; i < n + 1; ++i) {     
           cin.getline(s1, 1000);  
       for(int j = 0; j < 999; ++j)    
         if(s1[0] == 'A')     
                        if(s1[j + 1] == 'A')    
                k++;     }  
   cout << k;  
   return 0;
  }

Забыл добавить "read(n);" перед "k := 0;"

var n, k, i, j: integer;    s1: string;begin  assign(input, 'input.txt'); reset(input);  assign(output, 'OUTPUT.TXT'); rewrite(output);  readln(n);  setlength(s1, 1000);  k := 0;  for i := 0 to n do  begin    readln(s1);    for j := 0 to 998 do    begin      if (s1[0] = 'A') and (s1[j + 1] = 'A') then        inc(k);    end;  end;  write(k);end.

попробуй так

индекс вне границ массива

а ты можешь дописать код под номером 1?