[nergis_ayse]

pascalda olucak ben yazdım ama hata veriyor
uses crt;
procedure mesaj_ortala(mesaj:string);
begin
clrscr;
gotoxy((80-lengih(mesaj)) div 2,25;
write(mesaj);
readln;
end;
begin
mesaj_ortala('bu bir deneme mesajıdır');
end.