Одномерный масив (ПРАКТИКА)

[Mr0max]

Задание. Одномерный масив
N1,...,N7-наименование операций по ремонту оборудования;
S1,...,S7-стоимость каждой операции.
Напечатать список операций,стоимость которых от 100 до 150 рублей.
Указать самую дорогую операцию.
Наименования вводится по одному через ентер, цены - по одной через пробел.
Значит проблема в том что наименования водится только одно ,а чены норм вводятся через пробел. Подскажите как исправить.

uses crt;
type
MasN = array[1..8] of string;
MasS = array[1..8] of integer;
var
N: MasN; S: MasS;
i,m: integer;
begin clrscr;
writeln('Введите список наименований: ');
for i:=1 to 7 do read(N[i]);
writeln('Введите цены: ');
for i:=1 to 7 do read(S[i]);
clrscr;
writeln; writeln('Наименование  |   Цена');
writeln('=======================');
for i:=1 to 7 do begin
write(N[i]:12,'  |', S[i]:7);
if S[i]>S[i+1] then m:=i;
writeln;
end;
writeln; writeln('Самая дорогая операция: ');
writeln(N[m]:12,':',S[m]:7);
readkey;
end.

[rus12]

uses crt;
type
MasN = array[1..8] of string;
MasS = array[1..8] of integer;
var
N: MasN; S: MasS;
i,m: integer;
begin clrscr;
writeln('Введите список наименований: ');
for i:=1 to 7 do readln(N[i]);
writeln('Введите цены: ');
for i:=1 to 7 do readln(S[i]);
clrscr;
writeln; writeln('Наименование  |   Цена');
writeln('=======================');
for i:=1 to 7 do begin
write(N[i]:12,'  |', S[i]:7);
if S[i]>S[i+1] then m:=i;
writeln;
end;
writeln; writeln('Самая дорогая операция: ');
writeln(N[m]:12,':',S[m]:7);
readkey;
end.

[Mr0max]

спасибо.
только теперь ещё проблема он не считает самую дорогую операцию. просто число последнее выводит

[rus12]

uses crt;
type
MasN = array[1..8] of string;
MasS = array[1..8] of integer;
var
N: MasN; S: MasS;
i,m: integer;
begin clrscr;
writeln('Введите список наименований: ');
for i:=1 to 7 do readln(N[i]);
writeln('Введите цены: ');
for i:=1 to 7 do readln(S[i]);
clrscr;
writeln; writeln('Наименование  |   Цена');
writeln('=======================');
m:=1;
for i:=1 to 7 do begin
write(N[i]:12,'  |', S[i]:7);
if S[i]>S[m] then m:=i;
writeln;
end;

Лучше бы взял учебник по паскалю и нашел бы там ответ ,т.к это классический пример во многих учебниках.