pascal brigádnici

Prosím o pomoc s týmto programom


Vytvoriť program na výpočet a výpis miest brigádnikom a celkovej sumy potrebnej na vyplatenie všetkých brigádnikov. Pri výpočte miest vypisujte čistú mzdu a daň. Pre brigádnikov 10 percentná daň..............................................Vstup -počet brigádnikov
mená brigádnikov- max. 20 znakov
odpracované hodiny
hodinové mzdy
Výstup -meno
odpracované hodiny
hodinová mzda
hrubá mzda
čistá mzda
daň štátu
celková potrebná mzda na výplatu

Ďakujem

Tymi miestami myslis ?mzdy? toto je uz vyssi stupen programovania... ale si zober ze cista mzda a celkova mzda na vyplatu je v tomto pripade to iste. a ta hodinova mzda by mala byt u kazdeho inaksia?

No takto to nadiktovala ucitelka na strednej skole, no nemôže to byt vyssi stupen programovania, pretoze som uplny amater v pascale ako aj vsetci v nasej triede. sme robili takyto a povedala ze to ma vyzerat takto podobne : nacitame záznamy o zamestnancoch: meno, priezvisko,plat - toto je ten príklad
program platy;
uses crt;
type zam=record
meno:sting[10];
priezvisko:string[20];
plat:integer;
end;
var
podnik:array [1...20] of zam;
pocetz,i,prvi,najmensi,x:integer;
pomocni:zam
begin
pocetz:=pocetz+1;
with
podnik[pocetz]do
writeln ('zadaj meno')
readln (podnik[pocetz].meno);
if podnik[pocetz].meno<>''then
begin
writeln ('zadaj priezvisko');
readln (podnik[pocetz].priezvisko);
writeln('zadaj plat');
readln(podnik[pocetz].plat);
end;
end;
if pocetz=10
then writeln('Pole je naplnene');
until(podnik[pocetz].meno='')
or(pocetz)=10);
if podnik[pocetz].meno=''
then pocet:=pocet-1;
for prvy:=1 to pocet do
begin
naj:=prvy;
for i:=prvy+1 to pocet do
if podnik[i].plat then
naj:=i;
pomoc:=podnik[prvy];
podnik[naj]:=podnik[naj];
podnik[naj]:=pomoc;
end;
for i:=1 to pocet do
begin
wich podnik[i]do
writeln(meno:10,prizvisko:20,plat:10);
writeln;
pomoc:=podnik[prvy]
podnik[prvy]:=podnik[naj];
podnik[naj]:=pomoc;
end;
repeat until keypressed
end.

ste zaciatocnici a uz robite so zaznamom? to je teda cudne....to som z toho co to znamena? ak tym myslis ze meno je prazdne neviem ako by sa to dalo cez readln docielit. asi to je ('zle') co ja viem o zaznamoch(takto):
pocital som s tym ze to bolo programovane na SR a pre SR robotnikov takze viac nez 65 000 by za mesiac hadam nemali dostat, taktiez si myslim ze mesiac ma tiez menej hodin..oh dan 19%(tak sa nehnevaj).. Malo by tam byt vsetko ak sa nepaci grafika tak sa musim priznat ze som nato nemal nervy......

Dakujem ti velmi pekne a hento som sa asi pomýlil a D