задача на массив, очень трудно Опции

[trew]

Дан массив в девять строк. В строке «названия журнала_цена_кол-во подписчиков». Преобразовать массив так: в каждую строку через тире приписать стоимость журнала от всех подпищиков, и разпечатать.
Вот моё не правильное решение вообще вроде

 program z1;
var a:array[1..4] of integer;
i:integer;
d:integer;
min:integer;
l,j:integer;
buf:integer;
k:integer;
q:string;
w,e:integer;
begin
writeln('ўўҐ¤ЁвҐ rjk ;eh');
readln(d);
for K:=1 to d do
for i:=1 to d do
begin
writeln('ўўҐ¤ЁвҐ ­ §ў ­ЁҐ ¦га­ « ');
readln(q);
writeln('ўўҐ¤ЁвҐ 業г');
readln(w);
writeln('ўўҐ¤ЁвҐ Є®«-ў® Ї®¤ЇЁйЁЄ®ў');
readln(e);
end;
begin
L:=w*e;
min:=l;
begin
if l<a[l] then min:=l;
buf:=a[i];
a[i]:=a[min];
a[min]:=buf;
end;
for k:=1 to d do
begin
write(l,'');
writeln
end;
writeln(' бЁў ®вб авЁа®ў ­');
end;
end.