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

[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 22:39