Zadanie w Pascalu.

Gandalf-biały [ Mithrandir ]

Zadanie w Pascalu.

mam zadnie z Rekordami. Juz prawie wszystko zrobilem ale musze miec jeszcze tabele zrobiona do tych rekordow ale nie wiem jak to zrobic- moze ktos z was moglby to zrobic ?

Grupa B (dotyczy studentów, których numer indeksu kończy się na 1, 4 lub 7)
Program obsługuje prywatną kolekcję muzyki - każdy rekord opisuje jeden album muzyczny i posiada następujące pola:
· Artysta
· Tytuł albumu
· Liczba utworów
· Sumaryczny czas trwania (mm:ss)

program Untitled;
uses crt;

type licznik = record
artysta: string[16];
TAlbumu: string[24];
LUtworow: integer;
SCzT: string[4];
end;

var
stats: array[1..3] of licznik;
i,x:integer;

procedure kolekcja;
begin
writeln('=================================================');
writeln('prywatna kolekcja DVD');
for i:=1 to 3 do
begin
writeln('Rekord nr:',i);
writeln('Podaj artyste:');
readln(stats.artysta);
writeln('Podaj Tytul albumu:');
readln(stats.TAlbumu);
writeln('Podaj Liczba utworow:');
readln(stats.Lutworow);
writeln('Podaj Sumaryczny czas trwania:');
readln(stats.SCzT);
writeln;
end;
end;

procedure pokaz;
begin
writeln('=================================================');
for i:=1 to 3 do
begin
writeln('REKORD nr: ',i);
write('Artsta: ');
writeln(stats.artysta);
write('Tytul albumu: ');
writeln(stats.TAlbumu);
write('Liczba utworow: ');
writeln(stats.LUtworow);
write('Sumaryczny czas trwania: ');
writeln(stats.SCzT);
writeln;
end;
end;



begin
clrscr;
kolekcja;
pokaz;
writeln('+-----------------------------------------------------------+');
writeln('| r | artsta | Tytul albumu | Liczba | Czas |');
writeln('+-----------------------------------------------------------+');
for i:=1 to 3 do
if i<10 then
writeln('| ',i,' |');
readln;
end.