Śmieci, śmieci i śmieci

tempy huj · Gość

uses crt;
var
marka:array[1..10] of string;
model:array[1..10] of string;
rok:array[1..10] of integer;
przebieg:array[1..10] of real;
cena:array[1..10] of real;
i,x,y,z:byte;
label tab, n, kon,p;
procedure tabelka;

begin
clrscr;
write ('Lp Marka Model Rok Przebieg Cena');
for i:=1 to 10 do
begin
x:=i+2;
gotoxy (1,x);
write (i);
gotoxy (9,x);
write (marka[i]);
gotoxy(17,x);
write (model[i]);
gotoxy(25,x);
write(rok[i]);
gotoxy(33,x);
write (przebieg[i]:10:0);
gotoxy(49,x);
write(cena[i]:10:0);
end;
end;
procedure wyp;

begin
write ('Podaj numer pozycji: ');

readln (y);
write( 'Podaj markie: ');
readln(marka[y]);
tabelka;
write( 'Podaj model: ');
readln(model[y]);
tabelka;
write ('Podaj rok: ');

readln (rok[y]);
tabelka;
write ('Podaj przebieg: ');
readln(przebieg[y]);
tabelka;
write ('Podaj cene: ');
readln (cena[y]);
tabelka;
end;

begin
p:
clrscr;
tabelka;
writeln;
Writeln ('[1] nowa pozycja [2] podglĄd tabelki [3] koniec ');
readln (z);
case z of
1: goto n;
2: goto tab;
3: goto kon;
end;
n:
wyp;
tab:
tabelka;
readln;
goto p;
kon:
end.