[pascal] pomoc w zadaniu Opcje

[aleo]

Kod

program rysowanie;
uses crt; var x1,y1:longint;ss:string;
procedure pisarz(x,y:longint;s:string);
begin
gotoxy(x,y);
write(s);
end;
begin
clrscr;
   write('podaj x y i s');    read(x1);read(y1);write('podaj s');read(ss);
pisarz(x1,y1,ss);
end.

dlaczego nie wyczytuje zmiennej ss?

[aleo]

Kod

program zad4;
             uses crt;
             var
             d,e,f:real;
function min3(a,b,c:real):real;
begin
if a<b then
if a<c then min3:=a
else if  b<c then min3:=b
else min3:=C;

                              end;

                              begin
                              writeln('podaj a , b  ,c ');
                              read(d);
                              read(e);
                              read(f);
                              writeln('najmniejsza wartosc',min3(d,e,f):2:0);
                              readln;



                              end.

A dlaczego tu jest źle ?