А может:
program hello;
Procedure Gradient(h_i, w_i : Integer);
Var
i : integer;
begin
for i:= h_i downto 0 do
begin
SetColor((128 * i) / h_i, (128 * i) / h_i, (128 * i) / h_i);
DrawLine(0,h_i-i,w_i,h_i-i);
end;
end;
begin
delay(1000);
Gradient(GetHeight,GetWidth);
delay(10000);
end.
???
А тач скрин юзаится библиотекой Lib_sensor(
ТуТ, сообщение #27) команды там же! Внимательно изучи^^"
Щас я доделаю рисовалку - выложу)