Good job, but you should read more about standards. Its 2 spaces, not one tab.
Example:
SCAR Code:
program New;
var
I: Integer; // Its 2 spaces here also.
begin
begin
Writeln('Begin');
repeat
Writeln(' Repeat');
Inc(I);
Writeln(' Stuff to repeat');
Writeln(' Until(Statement True);');
until(I = 1);
if(I = 1)then
Writeln(' If (Statement True) Then');
Writeln(' without begin and end is also 2 spaces');
if(I = 1)then
begin
Writeln(' If (Statement True) Then');
Writeln(' begin ');
Writeln(' This is an if()then with begin and end!');
Writeln(' end; ');
end;
Writeln('End;');
end;
end.