Паскаль, задачи, ПОМОГИТЕ, ХОЧУ САМ РЕШИТЬ Опции

[Russel]

Здравствуйте. Уже просил помощи на этом замечательном форуме, откликнулись. Снова понадобилась помощь.

Задачу в трех вариантах надо сделать: Обычным способом, через запись, через процедуры.

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


Вот я начал:

var 
n:array [1..7] of string [5];
s:array [1..7] of integer;
spisok:string;
f:text;
dor: real;
imax:byte;
t1, t2, t3, t4 string [41];
begin
assign (fl, 'C:\remont.txt');
reset (fl);
for i:=1 to 7 do
begin
readln (fl, n[i], s[i]);
close (fl);

Подскажите как дальше? Как с помощью таблицы аски таблицу нарисовать?

Вот файл:

rem-1 50
rem-2 70
rem-3 100
rem-4 120
rem-5 140
rem-6 150
rem-7 200

Сообщение отредактировано: Russel - 6.06.2009 18:39

[Lapp]

Подскажите как дальше? Как с помощью таблицы аски таблицу нарисовать?

Дпльше нужно делать то, что спрашивается:

max:=1;
for i:=1 to 7 do begin
  if (100<=s[i])and(s[i]<=150) then WriteLn(n[i]);
  if s[i]>s[max] then max:=i
end;
WriteLn('The most expansive procedure is ',n[max]);

А ты еще хочешь типа красивые рамочки рисовать, да?


Добавлено через 2 мин.
Только убери begin в предпредпоследней строке. Или добавь end после readln..