Pascalban hogyan lehet grafikus képernyőről beolvasni, majd kiíratni?

program Iras;

uses graph, wincrt;

var gd,gm: integer;

s : string;

c, cc :char;

begin

{grafika inicializalasa}

gd := d4bit;

gm := m640x480;

initgraph(gd,gm,'');

if graphresult<>grok then

begin

writeln('Hiba a grafika inicializalasanal.');

halt;

end;

setbkcolor(blue);

setcolor(15);

cleardevice;

repeat

c := wincrt.readkey;

if ord (c) = 0 then

begin

cc:= wincrt.readkey;

end

else

s := s+c;

if ord (c) = 8 then s := Copy(s, 1, Length(s)-2);

setfillstyle(blue,0);

bar(1,1,640,20);

OutTextxy(1,1,s);

until c=#13;

closegraph;

end.

Fejleszd tovább :)

uses crt;

var k,g:char;

i:integer;

temp:string;

procedure bekar;

begin

repeat until keypressed;

k:=readkey;

if k=#0 then g:=readkey else g:=#0;

end;

begin

i:=0;

while k<>#13 do //Enter

begin

i:=i+1;

bekar;

if k=#8 then //backspace

begin

i:=i-1;

temp[i]:=' ';

end;

if k<>#0 then

begin

temp[i]:=k;

end;

clrscr;

writeln(temp);

end;

end.