Почему приведённый ниже алгоритм посимвольного формирования строки завершится аварийно? Function Stroka : String; Var C : Char; Begin Write('Введите очередной символ: '); ReadLn(C); Stroka:=Stroka+C End; На каком этапе выполняются действия в этом алгоритме?

//Dev-C++ 5.11

#include <iostream>
using namespace std;

int main(void)
 {const int n=3;
 const int m=3;
 int ma[n][m];
 int c;
 cout<<"First matrix"<<endl;
 for(int i=0;i<n;i++)
  {for(int j=0;j<m;j++)
   {ma[i][j]=i+j;
   cout<<ma[i][j]<<" ";}
  cout<<endl;}
 for(int i=0;i<n/2;i++){
  for(int j=0;j<m;j++)
   {c=ma[i][j];
   ma[i][j]=ma[n-i-1][j];
   ma[n-1-i][j]=c;}}
 cout<<"Final matrix"<<endl;
 for(int i=0;i<n;i++)
  {for(int j=0;j<m;j++)
   cout<<ma[i][j]<<" ";
  cout<<endl;}
 return 0;
}

Пример работы программы(n=3,m=3):
First matrix:
0 1 2
1 2 3
2 3 4
Final matrix:
2 3 4
1 2 3
0 1 2

Const   N = 10;   
var   a, S1, S2: Integer;   
i, Q1, Q2: Byte;   
begin   
S1 := 0; Q1 := 0;   
S2 := 0; Q2 := 0;  
writeln('Введите ', N, ' чисел:');   
for i := 1 to N do 
begin     
read(a);     
if a < 0 then 
begin      
S1 := S1 + a;       
inc(Q1)     
end;     
if a > 0 then 
begin       
S2 := S2 + a;       
inc(Q2)     
end;   
end;   
writeln;   
if Q1 > 0 then 
begin     
writeln('Сумма отрицательных чисел: ', S1);     
writeln('Количество отрицательных: ', Q1)   
end   
else 
writeln('Отрицательных нет');   
if Q2 > 0 then
begin     
writeln('Сумма положительных чисел: ', S2);     
writeln('Количество положительных: ', Q2)   
end   
else 
writeln('Положительных нет') 
end.