Одномерный массив (Строки)

program goroda;
uses crt;
var     i:byte;
    spisok_n,spisok_p,spisok_all:string;
    g:array[1..5] of string; {imena postavshikov}
    ps:array[1..5] of string;{gorod, gde nahodyatsya postavshiki}
    p:array[1..5] of string; {imena potrebiteley}
    pot:array[1..5] of string;{gorod gde nahodyatsya potrebiteli}
begin
ClrScr;
 g[1]:=' Fanta ';
 g[2]:=' Coca-cola ';
 g[3]:=' Pepsi ';
 g[4]:=' Mirinda ';
 g[5]:=' Sprite ';
  gotoxy(1,3);
  Write('Vvedite goroda,gde nahodyatsya postavshiki - ');
 
                 for i:=1 to 5  do
                  begin
                   gotoxy(1,3+3*i);
                   write(g[i],'B ropoDe : ');
                   readln(ps[i]);
                  end;
 
ClrScr;
 p[1]:=' KopeiKa ';
 p[2]:=' 7 KoHTuHeHT ';
 p[3]:=' 5-po4ka ';
 p[4]:=' AwaH ';
 p[5]:=' MeTpo ';
  gotoxy(1,3);
  Write('Vvdedite goroda,gde nahodyatsya potrebiteli - ');
 
                  for i:=1 to 5  do
                   begin
                    gotoxy(1,3+3*i);
                    write(p[i],'B ropode : ');
                    readln(pot[i]);
                   end;
 
                  for i:=1 to 5 do
                  if ps[i]=pot[i] then
                   begin
                    spisok_n:=spisok_n+g[i];
                    spisok_p:=spisok_p+p[i];
                    spisok_all:=spisok_n+spisok_p;
                   end
                  Else
                  writeln('Vse postavshiki i potrebiteli v raznih gorodah');
ClrScr;
 writeln('Spisok postavshikov u potrebutelei v odnom gorode - ');
  begin
   writeln(spisok_all);
  end;
readkey;
end.