Задача о поставщиках и производителях

[gleensande]

Добрый день!
Решаю тут задачу такого условия:
Даны массивы
N1, ... , N5 - наименования поставщиков;
PS1, ... , PS5 – город, где находиться поставщик;
P1, ... , P10 – наименования потребителей;
POT1, ... , POT10 – город, где находится потребитель.
Вывести списки поставщиков и потребителей, находящихся в одном и том же городе.
Вроде бы, все должно работать, но почему-то, программа просит ввести только названия поставщиков, а дальше просто выводит строчки, не спрашивая больше ничего. Совершенно не понимаю, почему так происходит. Текст программы :

program pr51_7;
const
	k=5;
	m=10;
var
	n,ps: array[1..k] of string;
	p,pot: array[1..m] of string;
	i,j,o,l,q,t: integer;
begin
	writeln('Введите названия поставщиков');
	for i:=1 to k do
		read(n[i]);
	writeln('Введите города поставщиков');
	for q:=1 to k do
		read(ps[q]);
	writeln('Введите названия потребителей');
	for l:=1 to k do
		read(p[l]);
	writeln('Введите город потребителя');
	for t:=1 to k do
		read(pot[t]);
	for o:=1 to k do
		for j:=1 to m do	
			if ps[o]=pot[j] then 
				writeln('Поставщик ', n[o],' и потребитель ', p[j], ' находятся в одном городе ', ps[o]);
end.

И еще такой вопрос: можно ли к первым четырем циклам применять один счетчик, например, i?

[BDA]

Можно в первых 4 циклах использовать одну переменную. Попробуйте заменить read на readln и вводить каждое название с новой строки.

[gleensande]

И Вы в очередной раз мне помогли, спасибо огромное! Теперь все работает.