Сведения о книге

[bag777333]

Сведения о книге состоят из фамилии автора, названия и года издания. Ввести набор из 12 таких сведений. Найти название книг данного автора, изданных с 1970 по 1990 год. Упорядочить сведения по первой букве фамилии автора. Заменить старый год издания на 1992г., Предполагая, что одна из книг переиздана.

[Aleksandr_59]

В смысле: не сделает ли кто-нибудь это вместо меня?

[bag777333]

Сообщение от Aleksandr_59

В смысле: не сделает ли кто-нибудь это вместо меня?

Я ЕЕ ЗДЕЛАЛ ПОЧТИ НО НЕ ТАК КАК ХОТЕЛОСЬ БЫ

uses crt;
var
a,b,i,j,y1,buk:integer;
g: array [1..12] of integer;
f: array [1..12] of string;
n: array [1..12] of string;
y:string;
begin
clrscr;
for i:=1 to 12 do begin
write('vvedite nazvanie= ');
readln(n[i]);
write('vvedite famoliu= ');
readln(f[i]);
write('vvedite god izdania= ');
readln(g[i]);
end;

for i:=2 to 12 do begin
buk:=i-1;
for j:=i to 12 do begin
if f[j][1]<f[buk][1] then
buk:=j;
end;
y:=f[i-1];
f[i-1]:=f[buk];
f[buk]:=y;

y:=n[i-1];
n[i-1]:=n[buk];
n[buk]:=y;

y1:=g[i-1];
g[i-1]:=g[buk];
g[buk]:=y1;
if g[i-1]<1970 then
g[i-1]:=1992;
end;
if g[12]<1970 then
g[12]:=1992;
for i:=1 to 12 do
writeln(n[i], ' ',f[i], ' ',g[i]);
end.

ОНА КАКОГОТО НЕ РАБОТАЕТ

[bag777333]

Сообщение от Aleksandr_59

В смысле: не сделает ли кто-нибудь это вместо меня?

ВОТ ПОЕТОМУ я и прошу мне помочь

[bag777333]

[Sciv]

Начнем с нуля - с подхода к решению задачи. Про тип запись aka record что-нибудь слышали?