Question

PASCAL // Potrzebuje sprawdzenia błędu

Program nazwa_progamu;
uses crt;
type
Tkolor=(bialy,czerwony,zielony,niebieski,srebrny);
TTyp=(osobowy,ciezarowy);
Twyposazenie = array [1..10] of string [30];
Tsamochod=record
Producent:string[20];
Marka:string[20];
typ:ttyp;
kolor:tkolor;
NumerRejestracyjny:string [7];
NumerNadwozia:string [30];
NumerSilnika:string [30];
Przebieg:Longint;
DodatkoweWyposazenie:Twyposazenie
end;
var
samochod:TSamochod;
Znak:char;
I:byte;
Wypos:string [30];
begin
clrscr;
Write('Podaj producenta');
readln(samochod.producent);
write('podaj marke');
readln(samochod.marka);
repeat
write('podaj typ ("O" - Osobowy, "C" - ciezarowy)');
readln(znak);
until (upcase(znak) in ['O', 'C']);
case upcase(znak) of
'O' : Samochod.Typ:=osobowy;
'C' : Samochod.Typ:=ciezarowy;
end;
repeat
Writeln('Podaj kolor("B" - Bialy, "C" - Czerwony, "Z" - Zielony');
writeln(' "N" - Niebieski, "S" - Srebrny)');
readln(znak);
until (upcase(znak) in ['B', 'C', 'Z', 'N', 'S']);
case upcase(znak) of
'B' : Samochod.Kolor:=bialy;
'C' : Samochod.Kolor:=czerwony;
'Z' : Samochod.Kolor:=zielony;
'N' : Samochod.Kolor:=niebieski;
'S' : Samochod.Kolor:=srebrny;
end;
Write('Podaj numer rejestracyjny');
readln(samochod.numerrejestracyjny);
write('Podaj numer nadwozia');
readln(samochod.numernadwozia);
write('podaj numer silnika');
readln(samochod.numersilnika);
write('Podaj przebieg');
readln(samochod.przebieg);
I:=1;
repeat
write('podaj kolejny element wyposazenia', '(Enter, aby zakonczyc):');
readln(wypos);
samochod.dodatkowewyposazenie [I] := wypos;
I:=I+1
Until (I>10) or (wypos='');
clrscr;
with samochod do
begin
writeln(Producent,', ',Marka,', ', NumerRejestracyjny);
writeln('Numer nadwozia: ', numernadwozia,' Numer silnika: ',numersilnika,' Przebieg: ',przebieg);
case typ of
osobowy : Write('Samochod osobowy');
ciezarowy : Write('Samochod ciezarowy');
end;
case kolor of
bialy : writeln('koloru bialego');
czerwony : writeln('koloru czerwonego');
zielony : writeln('koloru zielonego');
niebieski : writeln('koloru niebieskiego');
srebrny : writeln('koloru srebrnego');
end;
for I := 1 to 10 do
if wyposazenie [I] <> '' then // TU MI WYWALA BŁĄD
Writeln(' - ', dodatkowewyposazenie [I]);
end;
readln;
end.

Answer 1

F-O-R-M-A-T-O-W-A-N-I-E kodu!
A błąd wywala, bo nie utworzyłeś żadnej zmiennej o nazwie "wyposazenie".