Turbo pascal pomoc

Program zadanie_domowe;


var

plik: text;
a, b, c: integer;
w, v: integer;
s: string;

begin
    Assign(plik, 'Z:\dane2.txt');
    Reset(plik);
    ReadLn(plik, s);
    WriteLn(s);
    ReadLn(plik, a);
    WriteLn(a);
    ReadLn(plik, b);
    WriteLn(b);
    ReadLn(plik, c);
    WriteLn(c);

    WriteLn('Wybierz figure: walec, prostopadloscian, stozek');
    ReadLn(s);
    if (s = 'prostopadloscian') then
       begin
         w := (2*a*b) + (2*a*c) + (2*b*c);
         v := a*b*c;
         WriteLn('Pole prostopadloscianu = ', w, ' Objetosc = ', v);
       end;
    if (s = 'walec') then
       begin
         w := (2*Pi*(a*a))+(2*PI*a*b);
         v := Pi*(a*a) * b;
         WriteLn('Pole walca = ', w, 'Objetosc = ', v);
       end;
    if (s = 'stozek') then
       begin
         w := Pi*a*(a*c);
         v := 1/3*PI*(a*a)*b;
         WriteLn('Pole stozka = ', w, 'Objetosc = ', v);
       end;
    Close(plik);
    ReadLn;
end.