uses crt;
var a,b:byte;
     c:char;
procedure ramka1;
begin
clrscr;
textcolor(1);
for a:=1 to 10 do
for b:=1 to 5 do
begin
gotoxy(a,b);
writeln('*');
end;
readln;
end;
ale trzeba to zmienic
jeszcze nie wiem jak



procedure ramka2;
begin
clrscr;
textcolor(4);
for a:=1 to 5 do
for b:=1 to 10 do
begin
gotoxy(a,b);
writeln('o');
end;
readln;
end;
begin
clrscr;
textcolor(15);
writeln('wybierz, 1-ramka niebieska, 2-ramka czerwona');
c:=readkey;
if c='1' then ramka1;
if c='2' then ramka2;
end.

No straszna bieda

tu macie wersje full, ale jest zrobiona po mojemu wiec cos zmiecie

na czerwono zaznaczylem dodatkowe rzeczy do usuniecia

uses crt;
var a,b,c,k,t,s,w,x,y:byte;
     l,z:char;
     label dane;
procedure ramka;
begin
gotoxy(x,y);
clrscr;
textcolor(c);
for a:=1 to k do
for b:=1 to w do
begin
gotoxy(a,b);
writeln(z);
end;
readln;
end;
begin
dane:
textcolor(15);
clrscr;
writeln('podaj liczbe kolumn:');
readln(k);
clrscr;
writeln('podaj liczbe wierszy:');
readln(w);
clrscr;
writeln('podaj wsp˘ˆľˆdne lewego g˘rnego rogu prostokĄtu:');
writeln('x:');
readln(x);
writeln('y:');
readln(y);
t:=x+k;
if t>80 then
begin
[color=red] clrscr;
writeln('bˆˆdne warto˜ci, wprowadz ponownie');
readln;
goto dane;
end;
s:=y+w;
if s>24 then
begin
clrscr;
writeln('bˆˆdne warto˜ci, wprowadz ponownie');
readln;
goto dane;
end;
clrscr;
writeln('wybierz kolor:');
writeln('1-czerwony');
writeln('2-niebieski');
writeln('3-zielony');
writeln('4-ľ˘ˆty');
l:=readkey;
if l='1' then c:=12;
if l='2' then c:=9;
if l='3' then c:=10;
if l='2' then c:=14;
clrscr;
writeln('wybierz znak, jakim ma zosta† narysowany prostokĄt');
readln(z);
ramka;
end.